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2588 
3909 
3919 
5020 
5950 
3040 
3959 
5050 
3078 
3889 


I-GETC: IF Н<>52.0 THEN GOTO 2570 

БОТО 299: КЕМ MENU 

PRINT CHR$ (12) :CDLORT 14 © 14 14:DIM T$(25.0) 
CURSOR 22,16:PRINT "VIDEOTEKST" 

CURSOR 22,15:PRINT "== 
CURSOR 9,12:PRINT "Een toepassing ор het programma "'VIDED TEXT’ 





= 





CURSOR @,12:PRINT "(The Best of DAInamic 89-81)" 

CURSOR @,1:PRINT "Druk op de SPATIEBALK om verder te gaan" 
ETC: ТЕ Н<>52.9 THEN GOTO 5080 

PRINT CHR$(12):PRINT :PRINT :PRINT 

PRINT "Met dit programma kunt U op het scherm meerdere tekstlijn 


PRINT "afbeelden. U hebt de keus tussen $ verschillende karakter 


PRINT "formaten (#44 -> 870). Het aantal lijnen hangt af van de" 
PRINT "gekozen lettergrootte." 

PRINT "бок hier kunnen achtergrondkleur en tekstkleur vrij" 
PRINT “bepaald worden." 

PRINT "Door toepassing van bv. де flitsroutine uit het programma 


PRINT "''ROTERENDE TEKST”, kan de affichage nog aantrekkelijker 


FRINT "gemaakt worden." 
PRINT "De tekst blijft zolang op het scherm staan tot op de БРАТ 


PRINT "BALK gedrukt wordt." 
PRINT 
PRINT "Wanneer U in lijn 3480 'BÜTO 290" wijzigt in 'GOTO 3199”, 


PRINT "kunt U een nieuwe tekst inbrengen, zonder langst het" 
PRINT "''MENIP" te passeren." 

PRINT "Vanzelfsprekend dient dan de BREAK-toets gebruikt om uit" 
PRINT "de routine te geraken." 

CURSOR @,1:PRINT "DRUK NU ОР DE SPATIEBALK" 

Н=ВЕТС:1Е Н<>52.0 THEN GOTO 3099 

PRINT CHR$(12):COLORT 8 0 8 8:РОКЕ #75,32 

DIM T$(25.0) 

INPUT "ACHTERGRONDKLEUR "АК: PRINT 

INPUT “TEKSTKLEUR "а ТК: PRINT 

PRINT "КАКАКТЕКОКООТТЕ " 

FOR AZ=1 TO 4 

READ BZ 

PRINT " "АХ" = "BZ; 

PRINT TAB(11)3:READ CZ 

PRINT "REGELS MET":CZ: 

PRINT ТАВ (25) 5: РЕТМТ "KARAKTERS" 

МЕХТ 

RESTORE 

INPUT “KEUZE INVOEREN AUB (1-4) "+ С:РЕТАТ 

FOR D-1.6 TO с 

READ BZ 

READ CX 

NEXT 

RESTORE 

FOR EX-1 TO ВХ 

PRINT "WAT IS DE TEKST VOOR REGEL NR "ЕХ 

PRINT "MAX.":sCXs:" KARAKTERS!" 
INPUT T$(EZ):PRINT 

IF LEN(T$(EX))2CX THEN БОТО 5520 
NEXT 

COLORT AK TK ак AK:PRINT CHR#&(12): 
IF C=2 THEN BZ=BX*2 

FOR FX-1 ТО Bi 

IF C=1 THEN G=#4Â 

IF C-2.0 THEN б=#5А 
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3419 
3420 
3430 
3440 
5450 
3489 
3479 
3489 
5500 
3519 
3529 
3559 
4000 
4019 
4020 
4830 
тт?" 
4040 
4056 
4950 
4070 
4971 
n" 
4072 
4975 


n 


4974 
4875 
4978 
4977 
4978 
4079 
4088 
4981 
4082 


IF (5.9 THEN Б-йбА 
IF C=4.9 THEN 6-474 
PRINT T& (FX) 

ТЕ C=2.@ THEN PRINT 


РОКЕ 
МЕХТ 


#ВРЕР-((Е7-1)##86) „6 


НЕБЕТС: IF Н<>52.0 THEN GOTO 5470 


БОТО 
рата 
DATA 
DATA 
DATA 


209: REM MENU 
8,5 

5,15 

13,37 

23,60 


PRINT CHRS(12):COLORT 14 6 14 14 


CURSO! 


R 25,16:PRINT "MARKEERSTIFT" 


CURSOR 25,15:PRINT “============" 
CURSOR 6,13:PRINT "Een toepassing op het programma **SPOT ON TEX 


CURSOR 6,12:PRINT "(F.H. DRUYFF - DAInamic 16/82)" 
CURSOR o, 1: РКТМТ “DRUK NU OP DE SPATIEBALK" 
H=GETC: IF Н<>52.9 THEN GOTO 4966 


PRINT 
FRINT 


PRINT 
PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FRINT 
PRINT 
PRINT 
PRINT 


n bv." 


4085 
4984 
4685 


PRINT 
PRINT 
PRINT 


ormatie." 
4985 CURSOR @,1:PRINT “DRUK NU OF DE SPATIEBALE" 
4987 Н=бЕТС:1Е Н<>52.0 THEN GOTO 4987 


4988 


PRINT 


bi jkomende 


4089 
4096 
4991 
4092 
4995 
5094 
4995 
4998 
4997 


РКІМТ 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FRINT 
FRINT 


Wijzigen)." 
CURSOR 9,1:PRINT “DRUK NU OP DE SPATIEBALK" 
H=GETC: IF Н<>52.0 THEN GOTO 4099 


4998 
4999 
4199 
4119 
4120 
4159 
4149 
4156 
4160 
4179 
4200 
4218 


PRINT 
CLEAR 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
PRINT 


UCHR$(12):PRINT :PRINT :PRINT 
"Met dit programma kunt u het scherm vullen met 1-22 lijne 


"tekst in normale karaktergrootte (#74). " 
“Zoals bij de vorige programma’s kunt U ook hier de achter 


“grondkleur en de tekstkleur vrij kiezen." 

“Daarenboven kunt U op gelijk welke plaats op het scherm" 
"tekstmarkeringen aanbrengen. De markeerkleur evenals de" 
"kleur van de tekst in de gemarkeerde gedeelten is ook" 
“vrij te bepalen." 

“Om nog meer aandacht op de gemarkeerde tekstgedeelten" 
"te vestigen is de mogelijkheid ingebouwd deze te laten" 
"knipperen." 

:PRINT "Door in lijn 4399 ''POKE #FF95,255’" te wijzigen i 


"2? РОКЕ ЯҒҒӨЗ,577 kunt U de affichage laten gebeuren ор" 
"leessnelheid." 
:PRINT "бр volgende bladzijde vindt U nog meer nuttige inf 


CHR# (12): PRINT :PRINT :PRINT :PRINT “Het inbrengen van een 
programmalijn op" 

"lijn nr. 4521, zal tot gevolg hebben dat de markeringen " 
“progressief gevuld worden." 

“Schakel over naar PROGRAMMA-MODE en voer in:" 

"274521 FOR E = 9 ТО 8:РОКЕ D, 2^J:NEXT? 7." 

:PRINT "Een ALTERNATIEVE KNIPPERROUTINE kan erin bestaan” 
“door lijn 4528 als volgt te wijzigen:" 

"774528 FOR E = 20 TO i STEP -1:COLORT AK TK AK МК" 

“WAIT TIME E:COLORT AK TE MK MTsWAIT TIME Е: МЕХТ””." 
:PRINT "Lijn 4529 laat terugkeren naar het MENU. (Evt. te 


CHR$(12):COLORT 8 @ 8 8 
Z000: DIM T$(25.0),LN(23. 0), BF (25. 0) , GP (25. 8) 


“HOEVEEL LIJNEN TEKST (МАХ.22) "зА: PRINT 
“WELKE ACHTERGRONDKLEUR "3 AK: PRINT 
"WELKE TEKSTKLEUR "фТКІРКІМТ 
"WELKE MARKEERKLEUR "МК: PRINT 


“WELKE TEKSTKLEUR IN DE MARKERINGEN "; МТ: РЕТМТ 
“WILT U DE MARKERINGEN LATEN KNIPPEREN (J/ND) "АФ 


:PRINT “ТІК NU UW TEKST IN":WñIT TIME 46:PRINT CHR$CZ) DAlnamic 84-21 155 


FOR &X-1 TO AL 


























188 
118 
128 
138 


148 
ise 
169 
200 
SOR 
219 


PRINT СНКЪ (12): COLORT 7 @ 7 7 

CURSOR 9,19:РАТМТ "SCREEN":POKE #BFEF-4##86, #4 

CURSOR @, 15: РЕТМТ "LAY-DUT":PÜKE #ВРЕР-8##864, #44 

CURSOR 19,10:PRINT "4 VERSCHILLENDE DEMU'S":POKE #ВРЕР-15##86, #6 


CURSOR 44,9:PRINT "Door Luc Beyens" 

CURSOR @,4:PRINT "Druk ор de SPATIEBALK om verder te gaan” 
H=BETC: IF Н<252.9 THEM GOTO 180 

PRINT CHRS (12): COLORT 13 9 15 13:POKE #74, 1:POKE #7S,#FF:REM CUR 
BLOKJE 


CURSOR 9,18:РНІМТ "KIES UIT DE VOLGENDE MOGELIJKHEDEN: ":POKE $BF 


ЕЕ-5##85, #6 


228 
238 
249 
250 
259 


1888 
1918 
1620 
1838 
1949 
1950 
1948 
1876 
1980 
1981 
1982 
1985 
1084 
1985 
1985 
1987 
1688 
1989 
1998 
1991 
1992 
1095 
1894 
1095 
1999 
1168 
1110 
1120 
1158 
1148 
150 
1206 
1219 
1215 
1220 
1250 
1240 
1250 
1268 
1278 
1286 
1290 
1500 
1516 
1328 
1550 


1346 


CURSOR 15,14:PRINT "1 — REKLAMESPOT" 
CURSOR 15,12:PRINT "2 — ROTERENDE TEKST" 
CURSOR 15,10:РКІМТ "3 — VIDEO TEKST" 
CURSOR 15,8:PRINT "4 - TEKSTMARKERING" 
CURSOR 46,3: INPUT “UW KEUZE IS: “sf 
ома GOTO 1000, 2000, 5000, 4000 
PRINT CHR$(12):COLORT 14 9 14 14 
CURSOR 25, 16: PRINT A S EAM 
CURSOR 25, 15: PRINT 
CURSOR 11,13:PRINT "... of wat men nog met tekst kan doen..." 
CURSOR 35,16:PRINT "Auteur: L.BEYENS" 
CURSOR 9, 1:PRINT “Druk op de SPATIEBALK om verder te gaan" 
H=GETC: IF Н<>352.0 THEN GOTO 1950 
PRINT CHR$(12):PRINT :PRINT :PRINT 
PRINT "Dit programma laat een tekst van max.16 kar. in formaat” 
PRINT "#50 letter voor letter op het scherm verschijnen vanaf” 
PRINT "links. De tekst wordt automatisch gecentreerd volgens" 
PRINT "zijn lengte." 
PRINT "Evenals in het programma "АОТЕНЕМОЕ TEKST’ zijn ook hier" 
PRINT "alle mogelijkheden inzake kleurkeuze, affichagesnelheid" 
PRINT "en aamtal affichages ter beschikking." 
PRINT "Na afloop blijft de tekst op het scherm staan tot op de" 
PRINT "SPATIEBALK gedrukt wordt." 
PRINT 
PRINT "Lijn 1400 kan naar believen aangepast worden: GOTO 1100" 
PRINT "of GOTO 1269." 
PRINT "GOTO 1190 laat toe een nieuwe tekst in te уоегеп;“ 
PRINT "БОТО 1209 laat de routine steeds opnieuw herbeginnen tot” 
PRINT "ор de BREAK-toets gedrukt wordt." 
CURSOR 9, 1: PRINT "DRUK NU OP DE SPATIEBALK" 

=BETC: ТЕ Н<>52.9 THEN БОТО 1099 
PRINT CHR$(12):CDLORT 8 0 8 В: РОКЕ %75,52 





INPUT "Tekst (мах.16 Как.) "SASIPRINT 
INPUT "Achtergrondkleur "SAK: PRINT 
INPUT "Tekstkleur “a TK: PRINT 
INPUT "Aantal affichages "SAR:PRINT 


INPUT "Affichagesnelheid (3-20) "SRE:PRINT 
PRINT CHRS(I2):C0LORT AK TK AK AK 

А=@„@ 

REM CENTREREN 

C-LEN(AS) : T=0. 0 

IF 0214.0 THEN Редб.0:БОТО 1319 

IF С>12.9 THEN Р-1.9:60Т0 1510 

IF C>19.@ THEN P=2.6:60T0 1316 

IF С>8.Ө THEN P-35.0:G80T0 1319 
IF C>6.9 THEN Р=4.9:60Т0 1519 
IF C>4,@ THEN P=5.@:G0T0 1310 
IF С>2.0 THEN P=6.6:G0T0 1319 
REM AFFICHAGE 

CURSOR P,il 

POKE 4BFEF-12:4iB5, #5A 

PRINT MIDS$(A$.T,1) 

WAIT TIME RS 
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1350 P-Pri.0:1-T*1.0 

1569 IF T-C THEN GOTO 1388 

1376 8010 1318 

1380 WAIT TIME 5@:8=8+1.@:IF АЗАВ THEN БОТО 1599 

1390 PRINT CHR$(12):G0T0 1220 

1399 H-BETC:IF H<>32.9 THEN GOTO 1599 

1400 GOTO 200:REM MENU 

2000 PRINT СНВЪ(12) СП ОКТ 14 @ 14 14 

2818 CURSOR 22,14:PRINT "RÜTERENDE TEKSTY 

2020 CURSOR 22,15:PRINT " ===== 

2030 CURSOR 9, 13:PRINT "Een Toepassing O op het programma ''FILM TITLE 

SIMULATION? 7 “ 

2049 CURSOR @,12:PRINT "(The Best of DAInamic 80-81)" 

2056 CURSOR @,1:PRINT "DRUK NU OP DE SPATIEBALK" 

2050 H-BETC:IF H<>32.0 THEN GOTO 2960 

2070 PRINT CHR$(12):PRINT :PRINT :РКІМТ 

2080 PRINT "Dit programma laat een ingetikte tekst (T$) ~ max.B0 kar. 

2081 PRINT "over het scherm roteren van R naar L, ter hoogte van lijn 
12" 

2082 PRINT "(midden van het scherm). De karaktergrootte is #54." 

2083 PRINT "Het aantal rotaties (AR) alsmede de rotatiesnelheid (К5) " 

2084 PRINT "kunnen vrij bepaald worden. Dit is evenzo voor de achter- 

2085 PRINT “grondkleur (AK) en de tekstkleur (TK)." 

2086 PRINT "Daarenboven zal, nadat de tekst een aantal keren over het 

2087 PRINT "scherm gelopen heeft, het laatste gedeelte van de tekst í 

CH” 

2088 PRINT "~ тах.18 kar. - in het midden blijven staan, 16 keer flit 

sen” 

2089 PRINT "еп opnieuw blijven staan tot op de SPATIEBALK gedrukt wor 

dt." 

20906 PRINT 

2091 PRINT “Lijn 2580 kan naar believen aangepast worden: GOTO 2100" 

2092 PRINT "of GOTO 2296.“ 

2094 PRINT "GOTO 2100 laat toe een nieuwe tekst in te voereni" 

2095 PRINT "GOTO 2200 laat de rotatie steeds opnieuw herhalen." 

2095 PRINT "Met de BREAK-toets kunt U dan uit de routine geraken." 

2097 CURSOR @,1:PRINT "DRUK NU OP DE SPATIEBALK” 

2099 H=GETC:1F Н<>52.Ө THEN GOTO 2099 

2100 PRINT CHR$(12):COLORT 8 9 8 8:РОКЕ #75, 32:REM CURSOR BLANK 

2110 INPUT "Eerste tekstdeel + SPATIE ! " Ве: PRINT 

2129 INPUT "Tweede tekstdeel "3U$: PRINT 

2159 INPUT "Achtergrondkleur "ФАКІРВІМТ 

2140 INPUT "Tekstkleur "s TK: PRINT 

2159 INPUT "Aantal rotaties "3S АК: PRINT 

2160 INPUT "Rotatiesnelheid "SRS:PRINT 

2200 PRINT CHR$(12):CULURT AK TK AK АК 

2219 C-LEN(C$):B-LEN(BS) +С 

2220 A$=" ":КЕМ 20 SPATIES 

2230 ALS=LEFTS(AS,C) 

2240 T$-01$-4B$4U$ 45$ 

2250 T=LEN(TS) 

2250 FOR А=1.9 ТО AR 

2279 FÜR Ti=9.9 TO Т-С 

2280 T1$-MID$(TS$,T1,C) 

2285 Р--Сғ10.0:ІЕ P<@.@ THEM P=1.@:REM CENTREREN 

2299 CURSOR Р,11:РОКЕ #ВЕЕЕ-12##86,#5А 

2300 PRINT T1$:WAIT TIME RS 

2310 МЕХТ:МЕХТ 

2320  T2$-MIDS$ (T$, B,C) 

2336 CURSOR P.11:PRINT T2$:WAIT TIME 108 

2540 FOR F=1.0 TO 19.0 

2359 COLORT AK AK ак AK:WAIT TIME 8:COLORT АК TK AK AK:WAIT TIME 8 






МЕХТ 
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19 REM УУУУММ hte tant AAA AA би Ау Aro EE Tee AA 





29 REM Jeroen Üvervoorde Helmbloem 5 3668 АС Rotterdam +1 23 

3e REM Telefoon 919-219426 Nederland datum 25-11-1983 1819 DRAW MX+6,MY-7 MX+6,MY+1 23: RETURN 

46 БЕМ Vott еее sen мими лу А улул APT PIN MEA UN PN 1900 R=7:K=23:G=MX+1:GOSUB 4080: Н<а: К-20:Б605БИВ 4000:DRAW MX-5,MY MX-5,MY*12 23 
59 REM --------------------------------------------- t 1910 DRAW MX-6,MY+7 МХ,МҮ%7 25: ВЕТОКМ 

69 REM Logo Overvoorde DENG] 2000 D=R*R:FOR Y=0 ТО RiX-5BR(D-YsY) 

79 REM u suas sn — — 2010 DRAW B,MY-Y MX+X,MY-Y К:МЕХТ Y 

160 МОРЕ &:COLORG 9 5 15 14:808UB 46090:E=YMAX-110:L=E+4@:C=17: YM=YMAX-20: XM=XMA 2020 DOT MX+SGR(D),MY A: RETURN 

X:R=19 3000 D=R*R:FOR Y=0 TO R:X-SOR(D-YsY) 

105 FILL 26,15+E 30,80+E 21:FILL 1,15+Е 5,35+E 21:FILL 1,754E 26,80+E 21 3010 DRAW МХ-Х,МУ+У 6,МУ+У КіМЕХТ Y 

118  MX-50:MYs194L:Rz158:K-21:608UB 5000:R=10:K=20:GOSUB 5000 3026 DOT MX-SBR(D),MY O:RETURN 

115 FILL 49,L 65,15+L 20:FILL 28,124L 64,174. 21:FILL 49,L 64,54. 21 4000 D=R*R:FOR Y-0 TO R:X=SQR(D-Y#Y) 

120 MX=8S:R=15:B=MX+5:K=21:80SUB 2000:R-10:K-20:008UB 2090 4010 DRAW MX-X,MY-Y G,MY-Y КіМЕХТ Y 

25 FILL 71,L 75,154L 21 4020 DOT MX-SGR(D),MY 9: RETURN 

130 MX=11@:R=15:K=21:GOSUB 5009:R=10:K=20: GOSUB 5000 5000 D=R#R:FOR Үсд TO R:X=SQR(D-Y#Y) 

135 MX=145:R=15:K=21:GOSUB S0600:R-10:K-20:G0S5UB 5099 5010 DRAW MX-X,MY-Y МХ+Х,МУ-У K:iDRAW MX+X,MY+Y MX-X,MY*Y K:NEXT Y 





140 FILL 144,L 160,199 29:FILL 155,154. 159,178 21:FILL 144,L 159,54 21 5020 DOT MX-SOR(D),MY @:DOT MX+SQR(D) ‚MY O:RETURN 
145 МХ=179:В=МХ-5:К=21:Н=15:50508 1009: 6=МХ:Н=19:К=260:б05ИВ 1900 

159 FILL 155,1 189,158. 21:FILL 180,1 184,154 21 

200 | MX=15:MY=15+E:R=19:K=20:G=MX:SO0SUB 1000:MY=MY4+3:R=15:GOSUB 3009: MY=MY-3 
| 201  R-15:K-22:808UB 5000:R=10:K=20:G0SUB 5000 

| 205 FILL 28,15+Е 49,264E 22:FILL 51,15+Е SS.ZO4E 22 











210 | MX=5O:R=15:K=22:G=MX+5:G0SUB 4000:R210:G-MX:k-20:80SUB 4000 19 REM ——- SUNDOWN --- 
| 215 MK=73S:R=1S:K=22:860SUB 5099:R-10:K-20:GOSUB 5000 20 КЕМ --- TOMISLAV MIKULIC --- 
| 220 FILL 74,E 90,154E 20:FILL 52,124E 89,17+Е 22:FILL 74,E 89,5+Е 22 80 РОКЕ #131,1 
| 225  MX-110:R-18:Kz22:8-MX4S5:B0SUB Z000:R-10:K-20:G0SUB 5000 99 кеі | 
| 23 FILL 95,Е 100,164E 22 : s e па LT IR D 
| 235  MX-138:R-18:K-22:89MX*3:608UB 4000:R=19:G=MX:K=20: GOSUE 4099 А ein фин ра EIU] N [m de) M | M | 
| 240 FILL 121,15+E 125,204E 22:FILL 136,16+E 149,20+E 22 112  GDSUB 22000 е RS GE й 
| 248 MX=16@:R=15:K=22:GOSUB S600:R-10:K-20:505UB 5200 120 | АОЕВВЕЕЕ 

259 | MX=195:R=15:K=22:GNSUB 9900:R=10:K=20:GOSUB 5000 120 №12 





255 MX=230:R=15:K=22:G=MX+5:GOSUB 2909:R-10:K-20:G0SUB 2000 
260 FILL 216,Е 220,16+Е 22:FILL 255,Е 269,454E 22 


265 MX=255:R=15:k 


140 FOR I=AD TO AD-(N#24) STEP ~24 


150 POKE 1,0 
22:808UB S900:R=19:K=29: GOSUE 5000 169 NEXT I 





f 
| 
| 
| 


279 | MX-290:R-15:K-22:508UB 5909:К=19:К=29:50808 5889 1799 GDSUB 5000 
275 FILL 289,E 303, 15+E 29:FILL 278,124E 304,174E 22:FILL 289,Е 304,5+Е 22 200 FOR I-AD TO AD-(NX24) STEP -24 
280 FILL @,E XMAX,E 20 219 FOR L=1 TO K 
390 — MY-E-A5:MX-107:G08UB 1400:MX=125:G0SUB 1500:MX-136:808UB 1660: МХ=154: 50508 212 WAIT TIME 1 
1790 220 POKE I,L 
319 | MX-172:808UB 1509:МХ=184:60508 1898:МХ=292:В05УВ 1909: MX=214: GOSUB 1400: MX 250 МЕХТ L 


z232:80SUB 1800 

320 MX=250:GOSUB 1500:MX=242:GOSUB 1986 

500 FOR T=#F TO 9 STEP -1:FOR I=#B8E7 ТО #BFEF STEP #5А:РОКЕ 1,#20+T:WAIT TIME 
3 МЕХТ I:HEXT T 

919  COLORG © 9 © O:WAIT TIME Ze:COLORG 0 5 9 G:WAIT TIME 36:COLORG 9 9 13 O:WA 
IT TIME 38: COLORS 0 © 9 14:WAIT TIME 39 

Í 320  COLORE 9 9 © O:WAIT TIME 34:COLORG © @ © 14:WAIT TIME Se:COLDRB © © 19 14: 
[ WAIT TIME SO:CDLORB 9 3 16 14:LOAD "JEROEN DEMO 2" 

600 FOR I=#BFEF ТО &BGE7 STEP -#SA:POKE 1,#2F:NEXT I 

619 RETURN 

1000 D=R*R:FOR Y-9 TO R:X=50R(D-Y#Y} 

1019 DRAW Б,МҮ+Ү MX+X,MY+Y К:МЕХТ Y 

1920 DOT MX+SQR(D),MY G:RETURN 

1400 Rz7:Kz23:808UB 5000:R=4:K=20:GDSUB S009:DRAW MX—7,MY-12 MX-7,MY*7 23:RETUR 


240 NEXT I 
259  BDSUB 5000 

266 GOTO 149 

5000 G=GETC:G=GETC:G=GETC 

5010 G=GETC:IF 6=0 THEN 5010 
5020 RETURN 

22000 REM CITRO 

22010 CX=54:CV=37 

22030 К!<6.0 

22040 Ri=R!+3 

22050 R2-R145 | 

22100 FOR Y--R! TD R! 

22110 X=SQR(R!*#R!-YxY) 

22120 DRAW Х+СХ,СУ+У CX-X,CY+Y 22 





h - 22130 NEXT Y 
1900 R=7:K=23:G=MX+1:G0SUB 2000:R-5:K-20:808UB 3906: DRAW MX-&,MY-7 MX-6,MY 23: 22190 N!z12.0 
ETURN ! ` 





22200 Fi=0.9:DF!=2.0#PI/N! 
22202 FÜR L=6 TO N!-1 
22204 F'-L«DF' 


1600 R=7:K=23:GOSUB 5900:К=:К=28:6050В SOOO:FILL МХ, МУ-7 MX+7,MY 20 
1610 DRAW MX,MY-7 MX+7,MY-7 23:DRAW MX-7,MY MX+7,MY 25: RETURN 


1799  R-7:K-23:808UB 5000: R=6:K=20:GOSUB SOOOiFILL MX-7,MY-7 МХ,МУ 20:FILL MX, MY 22210 Y1'-Ri*CUS F )4CX: VL I -RIKSIN(E! +CY 
MX+7,WY+7 20 22220 X2!-R24CUS(F !) 4CX: У2  -R248IN(E 1) СУ 
1710 DRAW MX-7,MY MX47,MY 23:DRAW MX-7,MY-7 MX,MY-7 23:DRAW MX,MY+7 MX47,MY47 2 22230 DRAW X1!,Yi! X2!,Y2! 22 


3: RETURN 


22240 NEXT L 
1800 R=7:K=23:G=MX-1:B0SUB 1096:R-5:K-20:8-MX:GÜSUB 1900:DRAW MX-1,HY-7 MX-1,MY 


50009 RETURN 
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632 


t c 
Cn un 
Ki 


tec 
CG tr СЛ 
Ка & СЮ ce 


ce ім CP fn C 
Sad чм En 
(mom ra ي‎ ds 


cr th 
У = 


688 
582 
684 


IF В (1,УА5Т-1)(9.0 ОК ЕЕ: 8.9 THEN Y-Y-6 

GOSUB 684: A$="Y"+AE:GOSUB 400 

C=15:A=AR: B-BR:FF!=X! (N2) : GOGUB 576:FFiz-FF!:X-A:Y-B-15 
IF B'(,ROL-1)49.9 DR FF!20.9 THEN Y=Y-4 

GOSUB 684:4$-"Y"-A$:BG0SUB 409 

IF GETC=@ GOTO 552 

6070 9999 

ТЕ ЕЕ! <9 THEN RETURN 

Y-B-3:1F FEI zë THEN X=Ati:A$="H":GOSUB 406: RETURN 
X=A-10:AS="L":GOSUB 498: RETURN 

ТЕ FFi=@ THEN RETURN 

X-A-2:1F FF!40 THEN Y=B-12:A$="N":GOSUB 400: RETURN 
Y=B+i:A$="0":GOSUB 406: RETURN 

X-8. 5% (DCH -LEN (A$) 42: Y=. 5# (ВВ+00) : RETURN 

FF HINT (FF 40, 5) : A$-STRS (FF!) : AS=LEFTS (AS, LEN (A$) 2) : X=X-Za (LEN (AS) +1 


):805UB 684: RETURN 


586 
588 
999 
gez 
994 
906 
788 
912 
915 
928 
924 
925 
928 
929 
зе 
952 
934 
236 
238 
746 
942 
944 
946 
248 
959 
32 
955 
954 
256 
ЖУ 
958 
RN 
1989 
1919 
1199 
1118 
112 
1289 
121 
1229 
1526 
131 
ізге 
1498 
1419 
2888 
2016 


IF FF!>@ THEN AS=RISHTS (AS, EN(AS) -1) : A$="+ "+A 

RETURN 

CLEAR 2509: MODE @:PRINT CHR$(12):PRINT "VAKWERK": PRINT 

PRINT "A.Vingerling, Sophiakade Sa, 3061 DK R'dam. Tel 910-521507" 

READ N:N2-2xN-1:N-N-1 

DIM A,N2-2),UM! (N2, N2), B} CE, М) КС! CIN) 

DIM L! tN2-3) , BV! (N22 , P (N2) , X! (N2) 

FOR I=@ TO 1:FOR 2-8 TO N2-Z:READ A:0(I,J)-78-1: NEXT: NEXT 

FOR 1-Ф TO i:FDR 4-0 TO N:READ KC! (I, JJ): NEXT: NEXT 

FOR Zeg TO 1:FOR 2-0 TO N:READ В! (7, 9): МЕХТ: МЕХТ 

READ VAST, ROL 

FOR j=@ TO MiB!41,0)--B' (1,2): NEXT: 80506 400 

PRINT «PRINT "Staafkrachtberekening in een vlak vakwerk" 

COLORT 5 15 & @:COLORG 7 15 11 e 

PRINT "met":NH1;" knooppunten en":2.0* (N*1)-3;" staven" 

GOSUE 109:6050В "op: GOUD 500 

PRINT CHR¥ (12) 3 "Ве аз 1 пойаве! ": 50508 958 

FOR 190 TO М 

PRINT I-,B!'(90,D,B! 0,15 

NEXT: PRINT 

PRINT CHRS 12}; "Staafkr achten": BOSUB 956 

FOR I-9 TO N2—3 

PRINT 141, 14000, D 5" en "JIA, IH LECI XIE) 

NEXT: PRINT 

PRINT CHRS(12);"Steunpuntsreacties":SOSUB 958 

PRINT VAST, X! (N2-2) , X! (N2-1) 

PRINT CHR$(12) ROL," ",X! (N22 PRINT 

GDSUD S@@:PRINT “Einde vakwerkprogramma ": 6070 9999 

PRINT "Staaf"," Tussen","  "," Lengte"," Kracht":PRINT "ONE. Put Se 
Eml,” ЕМІ RETURN 

PRINT "Knoopp."," Hor.","  Vert.":;PRINT " Nr."," INI," ENI": RETU 


REM aantal knooppunten 
DATA 9 

REM vormmatrix ALO 
DATA 1,2,2,4,5,6,7.8.9,2,5,5,4,4,5 
DATA 2,5,4,5,6,7,8,7,1,9,9,8,8,7 
REM knooppuntscoordinaten KC! Û 
DATA 6,0,1000,2500, 4006, 5000, 4000, 2560, 1660 

DATA see, 2500, 3500, 3500, 2500, 2500, 2500, 2500, 2500 
REM belastingen В! Û 

DATA 9e,4850,4999,0,—4950, -5000,0, 0,0 

DATA 6,50006,5006, 500,500, 10000, 2, 0,0 

REM vast,rol 

DATA 7,1 

REM minitekst data 

DATA 09,5515141121315254/,1 


чл 


* 


152524211131/,2,15553453251512112151/,3,13 


` 


3514132111521131147 


2020 


DATA 4,151223233521/,5,15122332322121111535/,5,25151411213132333323/, 
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7,153534222221/ 

2040 DATA B,25251511212121352323/,9,351514132322334213111/,*,22241333/,-,13 
33/,.,2121/," ",/ 

2050 DATA E,1115213123222535/,V, 008000325:80/,R, 008002821121517182355582/ 
2070 DATA L,029:02250:21/,H,029392759371/,0, 202929072947 / М, 202920022042 / 
2090 DATA L,222422:12425/,1,222411271524/,X,12343214/, Y, 21 2323142334/ 


LER EVA RUE 





9999 END 
š ЕЙ Ч ep 5 
NN +5050 
qi а є 
К 3 із) (13) au (15) (8) 
= -Чата +8000 -5273 -i0500 +1142 
P ы 
H am 8 св) H 1 B Б 
277-6775 -5775 -10418 3— -1&füBB 
/ ТЕТІ 
/ v-13485 
РА 
513 (яҙ 
-48075 
1 
v-HBÜTS 





















£T MUST ВЕ 
А HARDWARE 
PROBLEM... 


тт MUST ВЕ 
А SoFTWRRE 
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лаз 








Gi 
pi 
23 
с 
[eq 
(8) 
(о) 
[25 2 
(at, 
Y 
[25 
Ш 
5 
E 
С 
D 
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REM VAKWERKPROGRAMMA -- A.VINGERLING — R.DAM 
50508 900 

REM coefficientenmatrix депегегеп 

FOR 1-0 TO М:ҒОН 2-9 TO N2-3 

IF A(9,J)<>I AND A(1,J)<>I GOTO 145 

IF А(0,23-І THEN H=A(1,d):GOTO 150 

H=A(@,d) 

DX'!-EC! (6,H) -KC' (0, 1) 

DY'-EC!(1, HD KCE CE, I) 

L! (J? SOR (DX DX! 4DY LADY!) 

CM! (Pel, Озрж /L! (J) 

CM! ста, 0) =DY'/LE (J) 

NEXT 

BV! (241) 2-B! (0,1) 
BV! (248121) 7-B! (1,1) 
NEXT 

CM! GSVAST-2,N2-2) = 
CM! COVAST-1,N2-1 
См: (ROLL NDL ы 
RETURN: КЕМ einde CM-generatie 

REM LU- = volgens Gauss 

REM Pivotrij zoeken 

FOR K=@ то М2 

РК=К 

MAX =АВЗ (CM! (OC, ED 

FOR I=K+1 TO N2:1F 12М2 GOTO 216 

IF ABS(CM! CO,E))2 2MAX! THEN MAX!-ABS(OM! (1, къ): PK=I 
МЕХТ 

РК ЕРК: КЕМ Pivotrijnummer bewaren 

REM rij РК verwisselen met rij K 

FOR J-K TO ма 

WISCMI IK, d) 

DH! (K, J} SEM! (PK, 3? 

eM! (PK, Jie! 

NEXT 

REM bovendriehoeksmatrix genereren vlgs Gauss 
FOR I=Kti TO N2:1F I>N2 GOTO 246 

MI TEM! CL, E) /CM! (E, E) 

FOR J=K+i TO N2:1F 1242 GOTO 255 

смс, аси U1, J2 ME жн (K, 9} 

NEXT 

Сміт. Кум 

MEXT:REM sinde bovendriehoeks generatie 

NEXT: GOTO 255 

DET!-1.8 

FOR I-6 TO N2 

DET'-DET!*CM! (1,1) 

NEXT 

RETURN:REM einde онов. 

REM LU-terugsubstitutie vlgs Gaus 

REM Fivotrijwisseling 

FOR кое TD NZ 

Wi-BU' {Е} 

BU! GO =BVECP CRD} 

BU (POCO =H] 

НЕН E 

FOR Izk+i TO МО: із? GOTO 525 

BV! CD -BV! CO -ER! (ТК) #BV! (K) 

NEXT 

NEXT 

REM terugsubstitutie 

FOR тем? TO @ STEP -1 

X! UIO-BV! O2 /CM! КТ, 1) 

FOR L-I-1 ТО 9 STEP -1:1F 1<1 GOTO 333 


=1 
ті 
=1 
ті 














зз 
335 
33 
337 
409 
402 
404 
406 
4eg 
410 
412 
414 
416 
418 
429 
422 
424 
425 
428 
459 
A32 
A34 
436 
438 
440 
442 
444 
446 
448 
459 
452 
454 
456 
569 
592 
584 
505 
598 
518 
12 
514 
51 
818 
528 
22 
524 
PE IP 
625 
52 
530 
32 
THEN 
ыза 


BV! о-ви: {L)-UM! 0,10 #Х1 (I) 

NEXT 

NEXT 

RETURN:REM einde LU-terugsubstitutie 

IF XZQ=1 THEN GOTO 404 

X$-"01234557894—. EVRLHONLIXY":DIM CAR$(LEN(X$)—1) 

FOR 72-0 TO LEN(XS) -1: READ A$, САВЖ CZ) : NEXT: XZG- 1: RETURN 

Xi-X:YicY 

FOR Мед TO LEN(IA$)-1 

T$-MID$(O$,M, 1) 

IF Pi-1 THEN FILL X,Y X+4,¥+& 7 

FUR Z=@ TO LEN4X$)-1:IF T$-MID$(X$,2,1) THEN GRS=CARS(Z):G0TO 418 

NEXT: Z=LEN (X$) -2 

IF BR$-" " THEN X=X+4:G0TO 440 

FOR NN=@ ТО LEN(GR#)-1 STEP 4 

IF VFLAG<>@ GOTO 444 

IF МІРФ (СКФ, ММ, 1)="/" THEN X=X+4: GOTO 440 

ZZ=VAL (MIDS (RS, NN, 13) z YY-VAL (MIDS (GR$, NN 1,1) 

JES=X+ZZ: JC6=Y+VAL (MIDS (GRE, NN 1,12) 

JO7=X+VAL (MIDS (GR$, NFA, 1) 3 : JEB=Y+V8L (MIDS (GRE, ММ, 12) 

DRAW 205.305 0С7,4С8 C:IF XIM-i<=6 GOTO 458 

JC9=X+VAL (MIDE (GRE, NN+2, 1) 2 JE102 Y* VAL (MIDS (ORE, ММ, 122 

DRAW X+ZZ,Y+YY JC9,JC18 C 

NEXT NN 

IF Х+4>=ХМАХ THEN X=X1:Y=Y-6 

NEXT Hz: RETURN 

IF MIDS(OGR$,NN,1)-"/" THEN Y=Y-á:G0TO 454 

JC1=X+VAL { MIDS(GRS, NN*1,1)) :JE2-Y-VAL (MIDS (GPS, NN, 12) 

JOS=X+VAL (MIDS (GR$, МАНІ, 1) 9: JEA-Y-VAL (MIDS (ERS, NN42, 12) 

DRAW 201,302 05,904 С 

NEXT ММ 

IF Y-8<@ THEN Y-Y1:X-X-B 

NEXT M: RETURN 

MODE &:N1-2xN-2:XM'-KC! (6,0) : XN «XM! : YM! KC! (1,0) : YN! БУМ: 

FOR I=@ TO N:KEX!=KC! (8, IM: KCY'-KC! i, D) 

IF XM!ZKCX! THEN XM!=KCX! 

IF ХМ! >КСХ: THEN XN!-KCX! 

IF YM'ZKCY! THEN YM!-ECY! 

IF YMIDECY! THEN УМ! =КСУ! 

NEXT: XH! -XM! -XN! : YM! z YM! УМ: 

FÜR I=@ ТО N:IF XN!<@ THEN КС! (2, I)-KC! (9, IJ XN?! 

IF ҮМ!<@ THEN KC!(1, ОКС, - YN! 

pd FX !=(XMAX- 34) /XM! RCE eee te 
2-XMAX/2:YM2-YMAX/2:1F FXI<FY! THEN F!-FX':50TU 6 

БЕ 

FOR I-6 ТО NIKC! (B, ID) -XM2 E (KC! (B, IJ -XMI) SF ! S KC! CL, сумо OEC! (1, DVH 

NEXT 

FOR 1-06 Тр N1:691-0(0,1) :511-A (1, 0) 

A=KC! (G, Вет): B= KC! (1, ABI) секси (0, ALD 2 D-KC! (1,811) 

АА=А: BB=B:CC=C: DD=D: DRAW А,В C,D 9 

A=8. 5¥ (AAtCC) : B=0. 5% (BB4+DD) FF! X (1) :0-13+66М(ЕЕ1) #2: IF ABS {FF 49.1 

C=e 

Pi=l:AE=STRE (141) :AS="C"4MIDS (AS, 1, LEN(AS}—3)4"1":GOSUB 482: БОБИВ 499 





:IF ABS(FF!)<@.1 5070 53 


558 


A$=STRS INT (FF 40.5) ) :AS=LEFTS (AS, LEN (A$) -2) :GOSUB 686: BDGUB. 682: Vert: 


&:GOSUB 486 


638 
) 

448 
2 

SE 

сее: X= 

644 
546 
548 
зе 


NEXT: AV=KC! (8, VAST-1) : BY=KTI (1, VABT- 1) :AR=KC! (9 RUL- 1) z ER-KC! (1, ROL-1 


Pi-e:D-06:X-AV-A:Y-BV-4:0$-" V":GÜSUB 400: X-AR-A4:Y-BR-6:0$-"R":GOSUB 40 


FOR 1=6 То M:iPi-ci:A-KC!(0, I) iB-KC! (1, 1): R$-STRE (181): AS=MIDS(RS, 1,1): 
At1i:Y=B+i:GOSUB 4ее:Р1<28 

C-11:FF!-B!(0,1):808UB S7@:FF'=5! (1,1):G0SUB 676: NEXT 

C=15: A=AV: B=BViFF!=X! (N2-2): SDSUB 579 

X-ü:Y-zB-1i:IF B'(1,VAST-1)40 OR Х! (42-1) < THEN ҮзҮ-8 

BDSUB 684:08-"X"-A$:GOSUB AGG:iFE!-X! (N21) :BDSUB. &76: FF! --FF :Х=й: У=В-4Р 
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A FUE? 708 7607 ICCF 7CBF 7CHB 7087 183 ИА TEAB 7CA7 7САЗ 7096 7098 7097 7092 CBF 7088 7087 7085 7076 7078 707 7673 






































































































































38 9349 9348 9347 9343 9536 9338 9337 9333 ЧЗОР 9328 9327 9322 ТИР 9318 7317 9313 910F 9308 9307 9303 92Р FFB 92Е? 9223 5 TCAE TCAE ТБ 769 FCAS ЮИ ISD 7059 1055 C51 Ҡар 7049 7045 ICH 7C3D 7039 7039 КИ 7020 ИА 7026 7021 FID 7019 
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МЕЕ АЙЕ ADE ADF3 МЕР ADEB ADE? ADES ADDF 8008 А007 ADD3 ADCF ADCB ADC? ADCS ADBF АВВВ А087 А083 ADAF ADAE 
ADAS ADAL AD90 А099 А095 8091 А080 А089 А085 А081 А070 А079 А075 A71 ADAD ADS? ADAS ADL ADSD А059 ADSS ADSL 
ADAB ADAT ADAT AD3F ADIB 8037 #033 ADZF 8028 А027 A023 ADIF ADIB AD17 АФІЗ ADOF ADOB ADO? 4003 ACFF ACFB ACF? 
ACFL ACED ACE? ACES ACE! ACDD ACD? ACOS АСОИ AECD ACC? ACCS ACCE ACBD ACB? ACES ACBI ACAD ACA ACAS ACAI ACID 
ACT] 1092 ACF ACRE ACA7 ACH3 ALF ACTH ACT? ACTS ACF ACAB ACK? KA ACSF АСВ ACT] ACSI АСАР ACAB ACHT RAI 
ACID AC39 ACIS мм 4620 C29 АС25 ACZ ACID АС19 ACIS ACIE ACOD ACO? ACOS ACO! АВРО АВР ABFS АВЕ1 АВЕС. ABE? 
ABES ABDF ABDB 4807 AEDS ВЕСЕ ABCB АВС7 АВСЗ АВВЕ АВВ 8987 ABBI ABAF ADAB АВАТ АВАЗ ABSF 0899 АВ97 8895 ABF 
ABB? ABBS ABAL АВТО AB79 8875 AB71 ABAD ABG? ABUS 8881 ADSD ABS? ABSS ABSI ABAD ABA? ABAS ARAL ABSD ABJ? А835 
AB2F AB2B А827 ABZ AIF ABIB ABI? ABI3 АВОР ABOB 1807 8903 AAFF AAFB WI ААРЗ AREF ААЕВ ANET ARES AADF RADB 
Wis AADI AACD AAC? AACS ВАСІ AABD AAB? AABS AABI AAAS AAAS ARAS AAAI ARID 8899 8895 AAI AABD АЛЯ? MES AABI 
RATE BAT] AAT3 AAAF AAGB AAST AALS AASF AASB AAST ARTS AAAF ARAB AMT AM AASF ДАЗВ AAST ARIS RAIF AAZB 4827 
М BALD AALY AALS AAL AROD ARO? AROS AROL AFD A9F9 4975 AIFI RIED AVEF ATES AYEI А900 А909 8905 ADL 890 














8909 AC 
D IO 
8915 8914 
AGBE ABBA 
ASE Wu 
A807 8806 
ATAD АТАЄ 
А795 8742 
REF? AGFB 
REIF АЗЕ 
з Аи 
ASER ASEA 
A591 4590 
A337 A536 
RADD ме 
1493 4492 


7 4429 8428 


AXE ASCE 
A375 4574 
КИВ ASIA 
АДИ А2С0 
A267 Alb 
F208 A200 
ABS MB? 
ALS? ANSE 
AOFF ROFE 
ADRS ADAG 
A048 AQAA 
ЗЕЕ: FF 
9Е97 9Р9 
FSD FC 
SEES ЕЕ? 
9589 9608 
SEZF ФЕЗЕ 
9005 9004 
9878 9078 
9021 9020 
ak) 
3CbD ICC 
9613 %12 
9889 9888 
SES SBSE 
3805 9804 
ARAB FARA 
9851 9850 
FF? 99F6 
9990 9996. 
9943 9942 
E? 9ВЕВ 
988F 988Е 
3835 9854 
3708 9704 
9181 9780 
3727 9728 
SCD HEC 
3413 9672 
3519 9618 
SSBF JIBE 
9565 9564 
9508 7508 
3451 9480 
9457 9454 
IFD ISFE 


ЗАЗ 9382 


ВЯСТ AICS A9BF АВВ A987 А983 АЗАР AYAB 0947 АЧАЗ A99F 4998 А997 №993 АЗЕР ABB А987 8993 AIF А978 А977 A973 
1960 8969 ATAG 8961 AID А959 4955 A751 8940 А949 A945 #941 8950 А939 А939 A931 А920 8929 4925 А921 4910 4919 
A913 АЗОР A908 А907 A903 АВЕР АВЕВ АВР) АВЕЗ АФЕР AGED AGE? AGES AADF ABDB АБТ АВОЗ ABEF АВСВ АФС? AGES ABBF 
ABE? AGES AGD! ABAD AGAT AGAS AGAL 4990 А899 AUIS A091 АВЫП А899 #985 4881 A87D А879 А875 A071 8860 АЗЫ? ABAS 
ABSF ABSB A057 4853 МИР AB4B AGA? МИ: МР №038 3837 4855 ABIF WR 4827 №823 ARIF ABIB 0817 8813 АВОР 8608 
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ATAB АТАТ ATAS ATIF 8798 А797 A793 ВУВЕ АТЕВ АТВ? A783 ATIF АТВ 8777 A773 АТЫР ATEB АЛЬ? АЛЬЗ ATF ATSB ATS? 
ATSE ATAD 4749 A745 A741 AT3D A739 A735 A731 A720 4729 A725 А721 ATID A719 А715 ATLL AJOD А709 A705 ATOL AFD 
MEI МЕЗ ADEF MER AGE AGES AADF AADB АБО? AADS AT АВСВ АБС? AGC3 AGBF AGBB A607 А683 AGAF AGAB МАТ AGAS 
GOD A599 4695 A491 ALAT 689 А85 AI 8679 A67? AT A471 8680 8669 А665 АБЫ AASI AGI? 4655 AGT АБ A049 
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ASE? ASES ASE! 500 ASDO А505 А501 ASCD 8509 ASCI ASCI ASBD АЗВ9 А585 ASBI ASAD ASA? Войо ASAL А590 8999 A593 
ВОВЕ 8588 8987 ASB ASIF ASIB А577 А573 E ASG A547 A563 ASOF ASIB A537 ROSS ASAF ASAD ASAT AGNI ASIF ASSE 
6535 0531 АЗОВ 4929 А525 8521 ASID А519 А915 АЗІЇ ASOD 4909 A205 А501 MED MES AGES АРІ MED МЕ? MES MEI 
RADB 4407 A403 RACF МЕР МГ? AALI AADF AABE АНТ ARDS МАР ASAB МАТ MAS АМР 4498 A497 A493 ME МЕЗ MÉI 
AADI MID A479 MIS А071 MED 8469 AJAG AAT MOD #459 MOS AASE AMAD AMT A445 MAL ANID MIS MIS А431 MID 
M27 823 ARIF AMIE ASL? A413 A40F AAOB A407 A403 AIFF АЗЕВ АЗР АЗЕЗ ASEF АЗЕВ AJET AES ASDF ADB ASD? 8305 
ASCO AJE? А305 АЗСІ A3BD AJBI AJBI АЗВІ АЗАЙ АЗАЯ AZAT AJAL 859) A799 А399 829] AZAD 8389 #385 A381 АУЛ A379 
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ЗЕ 9737 9733 9F2F 9F2B 927 9723 ЗБІР 9Е1В 9F17 9FI2 FOF 9Е0В 9807 9205 SEFF ЧЕРВ ЧЕР? EFS GEEF PEER ЕЕ? 
ЗЕЕ! ЗЕМ} 9ED9 ФЕЙЗ ED] FEED 9EL9 ECS ЗЕСТ "EBD FEB? FERS ЧЕВІ FEAD VER? PEAS FEAL HEID 9Е99 99 VET] ФЕВО 
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SECS FECL SCBD 909 MBS 9081 MAD IAI WAT MAL 9090 9699 9095 9091 MAD 989 9885 HAL MID 9079 #075 9C7l 
ACAB 9667 та СОР 9С58 9657 9653 IAF 9048 9047 9043 CIF 9038 9637 955 9C2F WOH 9C27 9623 ЧИР 9618 917 
FELL 9000 9009 9605 9201 ЗВРО 9BF9 9BF5 SBF! IED IEI EC 9ВЕ1 9808 9809 9805 9801 VBCD 989 985 ВСІ 9880 
9887 9983 ЯВАР YBAB УВА? 9865 9B9F 9898 9897 9895 ЧВОР 9B8B 9887 9883 987Р 9879 9877 9873 IBAF 9868 9867 9865 
9890 9859 9955 9B51 9840 9949 9045 9841 9ВЗБ 9839 9835 9831 9820 9829 9825 9821 9810 9819 9815 7811 9800 9809 
9805 ЗАРЕ AFB ЧАР? 9ВЕТ AEF JAER ЧАР) ORES ФАВЕ PADE 9AD7 9605 ЗАСР FACE ЗАСТ FALI ЧАВР 9008 ЗАВ) FABI ЗААР 
ARF GAAS 9481 9699 9899 9495 9891 FRED 9489 9485 9081 947) 9879 9475 ЧАТІ FAGD F449 PAAT PAGE "ACD 9859 9895 
GAAF PAR 9847 9843 AIF FASE 7537 9433 AQF AZE 9527 9423 PIF 9R18 9А17 9813 PROF PAOB 9307 9403 99FF 99ҒВ 
9965 99F1 99£D 99Е 995 99Е1 9900 9909 9905 9991 9980 9989 9985 9961 9980 9989 9985 9991 HAD 9989 9905 HAL 
9998 9997 9993 998F 9988 9987 9983 997F 9978 9977 9973 AF 9968 9967 9953 "SF 9958 9957 9933 ФОЩЕ 9948 9947 
9941 9930 9939 9935 9931 9920 9929 9925 9921 9910 9919 9915 9911 9900 9909 9905 9901 98FD 98F9 PFI PAFI 98Е0 
98E7 98E3 PRDF 9808 9807 9803 З8СР VOLE ЗНО? TBI TEBF 9888 9887 9883 IBAF HAB 9807 9842 9B9F 9998 9897 9895 
9880 9889 9885 9881 987) 9879 9875 9871 9860 9869 9865 9861 9850 9859 9855 9851 9840 7047 9845 9841 9850 9659 
9833 9822 9828 9827 9823 981F 9818 9817 9813 980Е 9808 9807 9803 97FF 97ЕВ 97Ғ7 9762 EF 97ЕВ FET 97Е5 ӘТІР 
9709 9705 9701 9760 9709 9769 9701 9780 9789 9785 9781 9760 9789 9789 9781 9790 9799 9795 9791 9780 9789 9785 
TIF 9778 9777 9773 TAF 9788 9787 9163 VTSF 9758 9757 9153 ТАҒ 9748 9747 9743 973Е 9738 9757 9733 9722 9728 
9725 9721 9710 9719 9715 9711 9700 9709 9705 9791 FD PFF FGFS ЗБРІ AGED 98E9 ЗБЕЗ PAEL 9600 9609 9609 9601 
FALB 9567 96C3 96ВЕ 9688 9687 9683 95AF 9646 9687 95A ЧЕР 9698 9597 9693 96GF 9688 9687 9685 FATF 9678 9677 
9671 9440 9889 9685 9661 9550 9559 9655 9451 9640 9449 9545 9641 TAID 9429 9635 9631 9620 9629 9625 9421 9610 
9617 9613 960Е 9808 9507 9603 9SFF 95FB 95F7 95F3 9ЗЕР 95EB 9567 95E3 SDF 9508 9907 9583 ФОР 9568 97 9503 
9580 9589 9985 9981 95AD 9589 9585 9581 9590 9599 9595 9591 9580 9589 9585 9581 9670 9579 9575 9571 9560 9549 
9583 955F 955B 9557 9553 954F 9548 9547 9543 953F 9578 9537 9533 952F 9528 9527 9523 951F 9518 9517 9513 990Е 
9507 9505 9501 "FD 98F9 94F5 94F1 94ED 94Е9 MES HE1 9400 9409 9405 HADI ACD 9409 9465 PACI 9480 94D? 9489 
GAAF AAB ART 9403 949Р 9498 9497 9493 948F 9488 9487 9483 PIF 9478 9477 9473 "ALF 9468 9467 9463 MSF 9458 
9455 9851 944) 9449 9445 9441 9450 9439 9435 9431 9420 9429 9425 9421 9410 9419 9415 9411 940p 9409 9405 9801 
SFB 9367 93F3 93EF ӘЗЕР 93Е7 9363 93DF 9308 9307 9303 ФИР 98 #307 9305 93BF 9388 9187 9383 9ЗАР 9348 VAT 
9381 9398 9399 9395 9391 9388 9389 9385 9381 9570 9379 9375 9171 9560 9389 9385 9361 9350 9359 9355 9351 9348 


DAInamic 84-21 121 











3840 
заза 
3868 
3870 
56898 
3890 
5988 
3718 
3920 
3958 
3948 


S968 





4808 
4818 
2020 
доза 
4040 
4850 
498% 
4070 





10019 
10929 
10058 
10848 
19858 
18868 
12678 
190688 
18078 
19189 
11088 
11019 
11826 
11858 
11248 
11858 
свева 
20818 
2080220 
28050 
20848 
назв 
28848 


INPUT ñ(14.0) 

возив 219090 

PRINT "WELCHE AUSSAGE IST FALSCH" 

PRINT "-1- DIE ZEILENNUMMER 1808 IST DIE" 


PRINT " ERSTE PROGRAMMZEILE JEDES" 

PRINT " PROGRAMMES, " 

PRINT "—2— DIE ZWEITE ZEILENNUMMER" 

PRINT " IST VOM BEMUTZER FREI" 

PRINT * RESTIMMBAR." 

PRINT "—3— DIE ZWEITE ZEILENNUMMER MUSS" 
PRINT " 1818 SEIN. DA DAS UNTERPPROGRAMM" 
PRINT " IN DAS VGN ZEILE 19/880 VERZWEIGT" 
PRINT " WIRD. SEINERSEITS IN ZEILE 191й" 
PRINT " VERZWEIGT" 


INPUT 8415.08) 

GOSUB 71902 

PRINT "WELCHE AUSSAGE IST RICHTIG" 

PRINT "-1- IN BASICODE 2 КОЕММЕМ 4 DIMEN-" 


PRINT " SIONALE FELDER DIMENGIONIERT" 
PRINT " WERDEN," 

PRINT "-2- JEDES BENUTZTE FELD MUSS VORHER" 
PRINT " DIMENSGIDONIERT WERDEN." 

PRINT "-5- раб ELEMENT @ IST NICHT” 

PRINT " ERLAUBT." 


INPUT а(16.0) 

GOSUE 21928 

PRINT "WELCHE AUSSAGE IST RICHTIG" 
PRINT %-1- VARTABLENNGMEN DUERFEN" 


PRINT " NUR AUS EINEM ZEICHEN" 

PRINT " (GROSSER BUCHSTABEN)” 

PRINT " BESTEHEN. " 

PRINT "—2- VARIABLENNOMEN DUERF EMT 
PRINT " HOECHSTENS AUS ZWEI ZEICHEN" 
PRINT " BESTEHEN, WOBEI DAS ERSTE" 
PRINT " EIN GROSSBUCHSTABE SEIN" 
PRINT " MUSS. DAS ZWEITE ZEICHEN" 
FREE 7 KAMN FREI BESTIMMT WERDEN." 
PRINT "-5- WIE -2— JEDOCH DAS ZWEITE" 
PRINT " ZEICHEN MUSS EIN GROSSBLUCH-" 
PRINT " STABE ODER EINE ZIFFER SEIN." 


INPUT ACI7.@) 

сосин 21008 

НЕМ ж AUSWERTUNG ж 

PRENT 

SE-INT(ERE1B0.0/1) 

PRINT "SIE HABEN": ЕК: "VON": Is "FRAGEN" 
PRINT "RICHTIG BEANTWORTET =" 

PRINT БЕР" X" 

SE-INT(IEFE&100.0/1) 

PRINT “SIE HABEN": EF: "VON": I; "FRAGEN" 
PRINT "FALSCH BEANTWORTET =” 

PRINT SEs" X" 

REM 

PRINT "WIR FREUEN UNS AUF DIE ZUGENDUNG" 
PRINT "EINES VON IHNEN ERSTELLTEN " 
PRINT "PROGRGMMS IM BASICODE 2." 

PRINT “ES WAERE SCHOEN, WENN SIE EIN" 
PRINT "LISTING BEIFUEGEN KOENNTEN. ” 
END 

REM TITEL 

DIM Х%55.0) 

X$i(9.0) "DER WDR COMPUTERCLUB” 
X#(1.8)=" PRAESENTIERT 2" 
Хжіз В} = 8 56 I CODE 2" 
Х=(®„@)=" EIN TESTPROGRAMM" 
FOR X-8.90 TO 5.0 
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28878 
28888 
2909090 
28188 
28118 
28128 
28150 
28148 
28158 
20160 
20178 
28188 
20190 
282088 
28218 
2822 

20230 
29240 
28258 
20260 
21888 
21818 
21928 
21038 
218048 
21858 
21868 
21970 
21988 
21898 
21188 
21208 
21219 
21220 
21238 
21248 
21250 
25000 
259010 
25020 


ісі ЕМ (ХЕ (ХОУ 
FOR 1-1.8 TO L 
VE=E. +X 

Hü. Git 

GDSUB 118 
PRINT МІр%%Х%(Х).-іжі.19: 

NEXT I 

NEXT X 

FOR I=1.@ TO 18000.0:МЕХТ I 

FOR X=3.8 то 8.0 STEF —1.8 

L-LENO£ OX) 

FOR Ісі TO 1.0 STEP -1.8 

vE=Z, B+X 

HO=@. @+1 

GOSUB 114 

PRINT " "i 

NEXT I 

NEXT X 

возив 1898 

RETURN 

REM ж AUSWERTUNG ж 

I-141.8 

IF ACD -F(O) THEN ER=ER+1.8 

IF А419<>Е(І) THEN EF=EF+1.8 

IF AD -Е (1) THEN GOTO 21298 

REM FALSCHE ANTWORT 

PRIMT "LEIDER HABEN SIE DIE FRAGE" 
FRINT "FALSCH BEANTWORTET !" 

PRINT "DIE RICHTIGE ANTWORT WAR :" 
PRINT FCI} 

вото 21258 

REM RICHTIGE ANTWORT 

PRINT "DIE FRAGE WURDE RICHTIG" 

PRINT "BEANTWORTET 11" 

INPUT “WENN WEITER. BITTE 'RETURN'":X* 
BOSUB i188 

RETURM 

REM ж ANTWORTEN ж 
DATA 2.5.2.1.2,5,1 
DATA 2,1,2,1,2,2.3 


,5.2,3 
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2478 
2480 
2498 
2588 
2518 
2520 
2558 
2546 
2558 
2578 
зво 
2598 
2688 
2618 
26208 
2630 
2648 
2658 
2668 
2678 
2688 
2690 
2700 
2720 
2738 
2748 
2758 
2768 
2778 
2788 
2790 
2886 


2818 


2828 
2830 
2844 
2858 
2868 
2874 
2688 
2090 
2788 
2919 
2920 
2930 
2948 
2950 
2968 
2970 
2988 
2990 
3000 
5818 
Sa 
заза 
звав 
заба 
38690 
3070 
заза 
SBE 





PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
GOSUE 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
GOSUE 
PRINT 
PRINT 
PRINT 
PRINT 
РКТМТ 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INFUT 
GOSUB 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
GOSUB 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


»-1- DIE ANWEISUNG GDSUB 250" 

# BEWIRKT DIE AUSGABE EINES" 

# AKUSTISCHEN SIGNALS,SOWEIT" 

" IHR RECHNER DIESE MOEGLICH-" 

ү КЕТТ НАТ." 

"-2- GOSUB 268:PRINT ВУ" 

" BIBT EINE ZUFALLSZAHL AUS." 

: INTERVALL з RV>=@ UND RV<=1" 
"—3- BDSUB 272, LAEDT DIE VARIABLE" 

i FR MIT DEM AKTUELLEN FREIEN" 

і ZEICHENKETTEN-SPEICHERPLATZ" 
ACS.) 

218000 

"WELCHE AUSSAGE IST RICHTIG ZUR" 
"BEDINGUNBSANHWEISUNG з" 

"IF 132 AND I<@ THEN PRINT ELSE END" 
"-1- BOOLSCHE OPERATOREN SIND" 

М UNZULAESSIG" 

"—2- DIE ANWEISUNG IST ZULAESSIG" 
"-3- ELSE IST UNZULAESSIG" 

Ata. B) 

21008 

“WELCHES UNTERPROGRAMM STEUERT IHREN" 
"DRUCKER 50, DASS DIE ANWWEISUNG DEM" 
"BEFEHL <<PRINT TAB(28) AS>>ENTSPRICHT" 
"-1- FOR Ізі TO 20" 

і аве“ ens" 

x NEXT I:SR#=ñ#:GDSUB 358" 

"-2- звезда" 

i FOR 1=1 TO 20" 

S SR#=SR$+' 7U 

B NEXT I:GDSUB 350" 

"-з- FOR I-8 то 20" 

s важи“ eng" 

Ы NEXT I:SR$-A$:GOSUB 550” 

AC.m 

21088 

"SIE WDLLEN IN DER 4.ZEILE DES" 
"BILDSCHIRMES DAS 9. ZEICHEN " 

"ALS LEERZEICHEN DARSTELLEN, " 

"DER CURSOR BEFINDET SICH" 

"IN DER OBEREN LINKEN ECKE" 

"IHRES MONITORS. WELCHE ANWEI-" 
"SUNGEN BENUTZEN SIE?" 

"-1- HO=4:VE=9:60SUB 110" 

е PRINT ' '" 

"-2- HO=3:VE=8:60SUB 120" 

и PRINT ' 7" 

“-3- HO=8:VE=3:GOSUB 110" 

” PRINT ' '" 

АВ. 0) 

21220 

"MIT DEN ANWEISUNGEN HO=8: VE=S" 
"вовив 110:PRINT ' ' HABEN SIE EINEN" 
"BESTIMMTEN PUNKT AUF DEM MONITOR ANGE-" 
"ЗРНОСНЕМ. MIT DER NAECHSTEN ANWEISUNG" 
"SOLL DIE FOLGENDE POSITION DEN BUCHSTABEN” 
"'D' BUSWEISEN. WELCHE ANWEISUNG IST” 
"FALSCH 2" 

"-1— AENDERUNG DER VORHERIGEN ANWEISUNB" 
3 IN з HO=@:VE=3:GOSUB 11@:PRINT ^ бі" 118 DAinamic 84-21 
і PRINT 'p'" 





5698 
5708 


3718 
3728 
3738 
3740 
за 

260 
3778 
3780 
5790 
3888 
5810 
3828 


S828 


PRINT 
PRINT 
INPUT 
GOSUB 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
SOSUR 
PRINT 
PRINT 
PRINT 
FRINT 
PRINT 
FRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FRINT 
INPUT 
SOSUR 
FRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
SOSUB 
PRINT 
PRINT 
PRINT 


PRINT 
PRINT 
PRINT 
FRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"—2— PRINT 'D'" 
"—=— HO=HO+1:VE=3:G0SUB 11@:PRINT 'D'" 
ALP. B 

219000 

"WELCHES PROGRAMM ERZEUGT” 

"EINE ZUFALLSZAHL L MIT DEM" 
"INTERVALL 1258 UND L<=1@8" 
"BUSSERDEM SOLL L EINE INTEGER" 

"ZAHL SEIN !" 

"—i—- GOSUB 268:1 -INT(IRVESED " 

"—2— GOSUB 26@:L=INT(RV#S@*#2+.1)" 
“"-5- GOSUB Z6U:Ll -INT(GUUXSEH S1)" 
Аса.» 

21000 

"WELCHE AUSSAGE IST RICHTIG" 

"-1- DIE ANWEISUNG SOSUE 2800" 

- IST IDENTISCH MIT DER" 

a ANMWEISGUMG INPUT IME! 

"—2— DIE ANWEISUNG GÜOSUB 280" 

Ы UNTERSCHEIDET SICH VON DER” 

д ANWEISUNG GOSUB 210 DARIN." 

" DASS BEI GOSUB 218 ABGEWARTET® 

2 WIRD. BIS DER BENUTZER EINE" 

à TASTE GEDRUECKT HAT." 

#—Җ— DIE ANWEISUNGEN. GOSUB 280" 

g UND GOSUB 210 UNTERSCHEIDEN” 

2 SICH DADURCH. DASS BEI GOSUB" 

г 200 MEHRERE ZEICHEN EINGEGEBEN" 

d UND DER VARIABLEN INE ZUGEORDNET" 
T WERDEN."::IMPUT ñ (11.9) 

21889 

"X-25.678 WIE LAUTET DIE RICHTIGE" 
"ANWEISGUNG UM X FORMATIERT MIT 2" 
"STELLEN HINTER DEM DEZIMALPUNKT" 
"DARZUSTELLEN 2" 

н-1- CT=6:CN=2:SR=X:GOSUB 310:PRINT SRE! 
н-2- CT=S:CN=2:SR=X:GOSUB SIG: PRINT X" 
"—$— CT=4:CN=2:5R=X:G0OSUB IG: PRINT SRE” 
5112.0) 

21889 

"WELCHE AUSSAGE IST RICHTIG" 

"-і- DIE LAENGE EINER PROGRAMM-'" 

“ ZEILE IST VOM BENUTZER FREI" 

i BESTIMMBAR." 

“-2- EINE PROGRAMMZEILE DARF” 

й EINSCHLIESSLICH DER " 

ії ZEILEMNUMMER 68 ZEICHEN" 

и NICHT UEBERSCHREITEN" 

"-3- EINE PROGRAMMZEILE DARF” 

ы EINSCHLIESSLICH DER " 

ы ZEILENNUMMER 48 ZEICHEN" 

y NICHT UEBERSCHREITEN." 

A(13.9) 

21008 

"EL CHE AUSSAGE ZUR NACHFOLGENDEN” 
"ANWEISLUNG IST RICHTIG" 

" FOR 8-1 ТО 10 STEP 2" 

" NEXT в" 

"—i- DIE VARIABLE S IST MIT DOPPELTER" 
M GENAUIGKEIT DEFFIMIERT UND DARF" 
Е DESHALB NICHT ALS LAUFVARIABLE'" 

" BENUTZT WERDEN." 

"—2- DIE ANWEISUNG IST IN DIESER!" 
" FORM ZULAESSIG" 

"-5- STEF 2 IST UNZULAESSIG" 


м 
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DO o Oc CA b GEN = 


18 


28 
іва 
118 
111 
112 
115 
128 
зва 
201 
218 
211 
258 
2448 
278 
зав 
за: 
зів 
18 
311 
312 
Sis 
314 
зів 
za. 
хів 
51? 


318 


358 

368 

1000 
12198 
1920 
1850 
1848 
1058 
1948 
1970 
1888 
1890 
1198 
1118 
1128 
1138 
1148 
1588 


BASIGODE GERMANS 


PRINT CHRE12) 
PRINT "BASICODE BY TH V LIESHOUT” 
PRINT :PRINT ~ f LOADING BASICODE STANDARD (MIDS-CORRECTED)" 
PRINT :PRINT " SAVING BASICODE STANDARD (MIDS-CORRECTED)" 
PRINT sFRINT " LOADING BASICODE (NOT CORRECTER)” 
PRINT :PRINT " SAVING BASICODE (NOT CORRECTED)" 
PRINT =PRINT " CANCEL FROGRAM . RESTORE BASICODE” 
PRINT :PRINT " RESTORE BASICODE" 
PRINT sPRINT " RUN PROGRAM": БОТО 11 
вото 1280 
PRINT :PRINT "TYPE 1-7" 
аа ВЕТО: ТЕ AC49.@ OR Ao56.0 THEN 12 
PRINT CHR#(12): ON А-48 GOTO 14,15,16,17,18,197,18 
PRINT "TYPE CALLM 4386":PRINT :END 
CALLM #SAC: LIST i1080-:CALLM S3SOF:GOTO 1 
PRINT "TYPE CALLM #3@3":PRINT :END 
CALLM #3@9:LIST:CALLM #3@F:GOTO 1 
PRINT "TYPE САРЫМ 4318":PRINT :END 
PRINT "TYPE CALLM SSIB":PRINT :END 
CLEAR A:GDTO 1018 
PRINT СНЕЖ (12) : RETURN 
IF HOS=@ AND VE ft AND HOZ=39 AND VEC-23 THEN CURSOR HO,23-VE 
IF HO>39 THEN HO=39.@ 
IF МЕР>25.0 THEM VE-23.08 
RETURN 
HO=CURX: VE=23.8-CURY : RETURN 
O=GETC: ІМФУСНИФ (0): IF Пей THEN INS$-"" 
RETURN 
860508 288: IF O=@ THEN 210 
RETURN 
ENVELOPE @ 15:SOUND 1 ü 15 й FREO(15@@.@):WAIT TIME 1@:SOUND OFF RETURN 
RVZSRND (1. B) 2 RETURN 
FR=FREs RETURN 
SRE=RIGHTS (STRS (SR) „LEN(STRE(SRIJ 1.0): IF GR<¢@.8 THEN SRS="—"+SRE 
RETURN 
OS=ABS (SR) HB. 5*1@. 9° (-CN) : DHS INT (OS) : GF=05-0H+1.2:SR$=""sIF OS>=1E9 THEN 5 


MD O OU 560 N 


IF CN=@.8 THEN OFf$-"":GOTDO 515 

IF OF-1.0 THEN OF#=".":GOTO 314 

OFS=RIGHTS (STRS (OF) +" 899808800" .LENIGTRECOF)) 7. 0): OFS=LEFTS(OFS,CN+1) 
IF LEN(OPS)<CN+1 THEN OF $=0F$+"@":GOTOQ 514 

SR¢=RIGHTS (STRE (OH) .LEN(STR& (OH) )-1.@) : SRE=LEFTS (SRS, LEN (SRS) ~2} +OF $2 IF SR 
AND VAL (554) «20.8 THEN ЗЕж=°- "+88 

IF LEN(GRS)<CT THEN SR$-" "+SR#$: 6070 316 

IF LEN(GRE)2CT THEN SR$-"" 

IF LEN(SRE)<CT THEN SRE=SR$+"#": GOTO 518 

RETURN 

POKE #131,3:PRINT SR$::POKE #151,1: RETURN 

POKE #131, 3:PRINT SR$:POKE #131,1:RETURN 

a-9090.0:GDSUB 20:КЕМ TEST BASICODE 2 

REM ж WDR COMPUTERCLUE ж 

REM * H.+ M.FILLINGER ж 


REM ж 30.12.1983 * 
REM 
GOSUB 198 


GOSUB 28800 

DIM F(17.00,0(17.0) 
FOR 1=1.@ TO 17.8 

READ F(I):A(1I)=8.8 
NEXT I 

ER=@. 2 

ЕЕ-2й. 8 

SE-8.0:1-0.9 

REM 

REM + VARIABLENLIGTE ж 
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1510 
1528 
1538 
1548 
1558 
1568 
1868 
1818 
1828 
1830 
1848 
1959 
1858 
1879 


“1888 


1878 
1900 
4918 
1929 
1958 
1948 
2888 
29180 
2928 
2838 
2040 
2050 
2868 
2878 
2688 
2898 
2199 
2110 
2128 
2158 
2148 
2158 
2160 
21780 
2180 
2190 
2288 
2218 
2238 
2248 


um 
<= اہ‎ 


2268 
2278 
2278 
2300 
2318 
2328 
2338 
2540 


2559 


2368 
2378 
2388 
2398 
2400 
2418 
2428 
2430 
2448 
2458 
2468 


REM 
REM 
REM 
REM 
REM 
REM 
REM 


Ft 
At 
ER 
EF 
SE 


+ 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
GOSUR 


REM 
REM 


+ 


PRINT 
PRINT 
PRINT 
PRINT 
FRINT 
PRINT 
PRINT 
INPUT 
GOSUR 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
GOSUB 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
GOSUR 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
GOSUE 
PRINT 


1) =ANTWORTEENNZAHL | 
I} =ANTWORTAUSWAHL 

=ANZGHL RICHTIGE ANTWORTEN 

=ANZAHL FALSCHE ANTWORTEN 

=AUSWERTUNG I.V.H. 





ERLAEUTERUNG ж 

"DIESES PROGRAMM SOLL IHNEN" 
"HELFEN MIT DEN UNTERPRO-" 
“GRAMMEN DES BASICODE 2" 
"UERTRAUT ZU WERDEN. ” | 
"ZU JEDER FRAGE STEHEN DREI" i 
"ANTWORTKENNZIFFERN ZUR” 
"AUSWAHL. EINE DAVON GEBEN" 
"SIE BITTE ALS IHRE ANTWORT" 
"EIN." 


"WENN WEITER. BITTE 'RETURN'" | 
"EINGEBEN": ХЕ | 
ign 


TEST * 

"WELCHE VARIABLEN SIND IM" 
“BOSICODE 2 MIT DOPPELTER" 
"GENAUIGKEIT DEFINIERT 7" 


“-1- ALLE" 

Е в” . 
isen 

вка. 

21898 

"WELCHE WERTE HABEN DIE" 
"VARIABLEN HO UND VE " 

"MACH AUSFUEHRUNG DES BEFEHLE" 
"BOSUB 198" 





“-1- sVEZi.8:H0s1.0" 

"—2— iVE-O.:H0-28." 

н-д- DIE VARIABLEN WERDEN" 

к DURCH DIE ANWEISUNG NICHT" 
x VERAENDERT ° 

A.B) 

21888 

"SIE WOLLEN DEN CURSOR ZUR” 
*UNTERSTEN LINKEN POSITION" 
"DES BILDSCHIRMES, DIE IM" 
"ВАЗІСОРЕ 2 ZUGELASSEN IST.” 
"FUEHREN. WIE LAUTET DIE ANWEISUNG" 


"—1— НО=24:УЕ=59: 60508 128" 
н-2- HO=@:VE=23:GOSUB 110" 
"U—S— ное. Or МЕ-24. Bs BOSUE 110" 
AtS.@) 

21288 

"WELCHE VARIABLE DIENT ZUR" 
"REGERVIERUNG DES SPEICHER-" 
"PLATZES FUER ZEICHENKETTEN" 
“UND MIT WELCHEM BEFEHL WIRD” 
"DIES ERREICHT?" 


"—1— VARIABLE-A.BEFEHL-GOTO 20^" 
"—2— VARIABLE-FR,BEFEHL-GDSUB 278" 
1-3- VARTABLE=A4,BEFEHL=GOSUB 20” 
AC4.@) 

219989 


"WELCHE AUSSAGE IST FALSCH” 
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44% RECHTECKSCHLANGEN MACHINE-LANGUAGE ЖЖЖ PAGE #2 
KK MARKUS SIGG 16/6/82 REX 
£ @57 8452 EF RST 5 - 
gea Ж startadress: #408 858 #465 24 DATA 124 ~~ FILL X,Y X4XS,V+YS COLOR 
gas x 859 9464 ЗАС184 LDA DX - 
BBE хмах EQU 159 KILE пай 0467 Bs ADD E x: 
ИДЕ VMAX ЕР 129 G61 5468 528894 STA X -- X-X4DX 
eng XMAX/2 EGU 79 852 @46B AF MOV ғ.а = 
Gao YMOX/2 EQU 44 863 sAG6C ZARFEG LDA ХМ - 
8198 COL ЕВО :9E adress of COLORS registers 864 BASF B9 СМР С ~~ ТЕ Х>ХМ OR Xz8 ТНЕМЖ 
#11 x 855 #470 028994 JNT  YMQVE - 
812 ORG : AGO ЕЕ 2655 0473 забіва LDA DX = 
біз AO 218891 LXI — H.:9188  - 867 8475 ЗЕТС TCA e 
014 BAGA г22ФЕФФ SHLD COL - mod 6478 528184 STA DX -- XDX--DX 
#15 паве 214385 LXI H :BSAZ | - 959 847B 87 LLA = 
| HIG райо 220606 SHLD COL+2 -- COLORG 8 1 3 5 878 847C 81 ADB с € 
| 8617 BASC SEBS START MVI A, #6 - 071 8470 5286884 БТА X -- ЖХехерхарх 
| BIE GADE ЕЕ RST 5 > D72 дава SAC204 YMOVE LDA DY - 
| 819 @40Е 18 DATA сі -- MODE 4 875 9485 88 ADD B = 
| 826 BALS СПАУФА CALL RANDOM - 874 8484 32BUGA STA Y т- Y=Y+DY 
BEL #413 S2BD64 STA xS -- XS=RND (#2) 875 8487 ар HOV C.A = 
оо? пада РЕГ TCA s 676 баве Засада LDA ум = 
вот 6418 Со9Е Арт хмах = #77 GASB B9 сме С -- IF Y»YM OR VES THENX 
G24 пада ZZ2BFOA STA хм -- XH-XMAX-XG 278 G48C 0292084 JNC EVENT = 
| G25 #410 срауба CALL RANDOM - G79 48F засоба LDA DY = 
‚| а?а ATO B7iF LRA - ове 6492 2F3C TCA = 
| ват HALE X2Cig4 ста рх —— DX-RND (#14) 981 8494 320284 STA DY -- XDY--DY 
| S28 425 Cpazë4 CALL RANDOM Е #82 9497 87 LLA x: 
bI 8428 S2BE64 STA | YS ~~ YS-RND (#25) ges 8498 81 ADD С = 
hd BAER PESC TCA eu 984 84799 совста STA Y —— &Y-Y-DY4DY 
| дор CABIL ADI ҮМАХ = 885 949с SAGE D EVENT LDA E Da = 
i ФАЗЕ десвва ста Ум -- умеумах-уа gua 49r E626 ANI s 26 # 
сратва CALL RANDOM = 887 28401 CA4684 JZ REPEAT -- IF PEER OHEDEG) TAND %2хбж 
| ATIF LRA 2: авв 454 C3HCGA JMP START -- вото 16 XTHEN 58 
| з2с2ва STA DY -- DY=RND (#15) 887 94А7 86898 RANDOM MVI в, 
i ZEAF нут A.XMAX/2 - 996 HAAG 1454 MVI 0.4 
X2BBSA STA x -- хехмахи? 891 ZAAR ZABUFD LOOP LDA гер 
364% MVI  A,YMAX/2 - 992 В4АЕ 07 RLC 
e 32BC84 STA Y -- Y=¥MAK/2 BIS BAAF #7 къс 
| gag в 2698 WI H.E high bytes not used, (D 15% 994 даве SEAS МУТ ALG 
i 841 SABRES REPEAT LDA x *zeroed by RANDOM) 895 8482 17 RAL. 
| 542 SF MOV ғ.а х1 S96 BABE не ова B 
| ваз заврва LDA XS 997 8484 15 DER р 
| G44 & ва АГО Е @98 вавя ся RZ 
| 845 БЕ MOV L.A xz 499 BABE 17 RAL 
| Bas ЗАВСЯА LDA Y i865 @4B7 47 MOV — B,À 
| BAT 9452 47 MOV Б.А vi 191 9488 Copa МР LOOP 
| G48 8455 ЗАВЕЙ4 LDA ys 182 # 
| 249 базе ВЕ ADD B i83 GARE oe X DATA # 
250 BAST AF MOV GA y2 194 GARC єв Y рата й 
gei S458 7B MOV A.E 195 GARD өй xS DATA ë 
за DD: ОВ 186 BABE oo YS DATA o 
SUE ANI vx 187 GABF өй хм DATA ë 
| поета JNZ OK color must not be 8 (8) i88 6409 oo YM DATA й 
xc INR A 199 GaCi ag рх DATA # 
C614 ак ADI са color 116 вас өй DY DATA 6 
111 D 
112 паста END 
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ПОР Р Stes 





18 
28 
Ae 
ag 
эй 
а 
78 
ag 
9g 
99 
igi 
119 


119 DAInamic 84-21 





KR AS ARR AKR KAR AERA EKER ARERR ARE R EERE ERR RRR RRA ERE AE RER ER FUNC ВМО; 













































PRINT 
PRINT “git RECHTECKSCLANGEN BASIC - TINY-PASCAL — MACHINE-LANGUAGE жжже VAR I,R: INTEGER; 
PRINT RGR ARK RR RR EAR AOR RARER ARERR KAKA AR AER ЖК" BEGIN R:=6: 
PRINT FOR I:-1 ТО 4 DO R:-(MEML&EDOGI AND 442 OR FO SHR 1: 
PRINT "The programs move a rectangle of random breadth XS and height” RMD:-R SHR 1 
PRINT "YS with random x and y steps DX.DY trough the screen." ENDs 
PRINT "If the rectangle hits a border of the screen. it is reflected." 
PRINT BEGIN REPEAT COLORG(B,1,2.5) МОРЕ (4): 
PRINT "The differences of the Z programs in speed are impressive. if” ха: =RND: ХМ: zXMAX-X£: DX: RND SHR 1; 
PRINT "it is considered that each one uses the FILL function." YS: -RND; YM: =YMAX-YS:DY:=RND SHR 1: 
PRINT X:-XMAX DIV 2iY:-YMAX DIV 2; 
PRINT "Event @ is used to produce a new rectangle." МЕМЕ 8704 1: МЕМГНУ061:=8: í High bytes not used 
REPEAT MEMDB7DZ1:-Xi MEMERTDI Js =¥ 3 
MEML#7DS1:=X+XS:MEMLI#7D231: SV YS: 
MEMCATDEO3:-21- (CRY) MOD Ss 
CALL (#8CC}; t Draw ! 
X:=X+DX; 
i REM ЖЖ% RECHTECKSCHLANGEN BASIC ЖҰЖ ЕЕ АЗАН ЫЗЫН Cc). ДНЕМ BEGUN Око Хе 
2 REM kkk MARKUS 5166 18/6/82 rar BAS [] CS Хълдархава 
19 COLDRG в 1 X S:MODE 4 END: 
28 XMX-XHMAX-XS8X: DXX-RND (418) Ys=Y+DY: 
зв YSZ-RND (420) 2 УМИЕУМАХ-УВИ: DYZ=RND (#18) IF {YY} OR (VAB) THEN BEGIN 
48 XX-XMAX/2: YX-YMAOX/2 
së FILL XX,YX XX-XSZ.YX4YSZ 21+(XZ+YZ) МОРОЗ END 
ай XZ=XZ+DXZ: IF ХХ»ХМИ OR KALE THEN DXZ=—DXX: XZ=XZ+DXZ+DXX UNTIL МЕМОФРОВОЇ AND Z28—475 
та YZ=YZ+DYZ:IF YZ YM OR VULE THEM DYZ=-DYZ: YZ=YZ+DYZ+DYZ UNTIL XM-8 | never true ! 
ве IF PEEK (ОР) IAND $2@=@ THEM З8: GOTO 18 END. 
[RES RECHTECKSCHLANGEN TINY-PASCAL ЖЕЖ DT 
MARKUS SIGG 18/6/82 : ; 
PAGE #3 


VAR X,Y, XS, Y8, XM, YM, DX, DY: INTEGER; 


PROC MODE (M: š 
BEGIN МЕМІНУІНІ: =M; 


CALL (#7FD) 
END; ЖЕЖЖЖЖЖЖЖЖ ЖЖ ЖЖ ЖЖ ЖЖ Ж 


ЖЖЖЕЖЕЖЖЖЕЕЖЕЖЖИЖЕЖЕЖЖЖЕЖЕЖЕ 
¥ SYMBOL TABLE Ж 


END: 
PROC COLORG(C1,C2,03,04): COL BAJE DX ісі De SACZ EVENT #49С 
BEGIN MEMLETDZJI:-D1: MEMCH7DI 1: ЕСЕ; MEMDSTDZJ:-02; MEMLR7DZ31:-04; LOOP GAAB OF $4658 RANDOM G4A7 REPEAT S445 
CALL (EGDE) START #8480 x BABE XM BABE XMAX par 
END; XMAX/2 BBAF XS BABD Y BABC YM даса 
YMAX — 858i YMAX/2 BEA — YMOVE HABE YS BABE 


FUNC XMAX; 
BEGIN MEML#7D21: =8: МЕМЕ #7051: =; MEMDS7DA J: =й; 
CALL (89129: 
XMAX: -ZG5XMEMCR7DA J-MEMDR7DZIJI 
END: 


FUNC VMAX: 

BEGIN MEMLDS7D231: =; MEML#7DS 1: =; MEMES7D61: =8 
CALL (#912) 5 
умах: -МЕМЕ# 7017 





ENDs 
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Fag. 2. General block diagram 


gent, would result in a solutation at the cost of a large 
computation time as the equations f(x, u) have to be 
calculated à number of times for each time step. To 
avoid excessive computation times extrapolating digital 
integration methods can be used with only one compu- 
tation per time step. Also predicting/interpolating digit- 
al integration methods could be used, which first pre- 
dict a value of x for a future time by an extrapolating 
integration method and then determine the value of x 
by an interpolating integration method using the pre- 
dicted value of f. These methods require some calcula- 
tions of f(x. u} per time step and they must have an in- 
crease in accuracy as compared with an extrapolating 
method to compensate for the decrease in accuracy 
arising from the larger value of time step T that is 
necessary. The program BASIM uses two integration 
methods : 

an extrapolating integration method (INE) with integra- 
tion formula 

Anti ха T2 df, > fa) 

and an interpolating integration method (INI) with 
integration formula 

Rng хо fT/2(f БО) 

The table below shows the accuracy of both integration 
methods for sinusoidal signals as a function of the 
frequency w expressed as E = (Ад - АМА. Here Aq is 
the amplitude of the digitally integrated signal and A is 
the amplitude of the accurately integrated signal. 


Error Е for sinusoidal signals : 
wT 16 1 04 0,2 


0.97 0.35 0,065 0,004(wT)? 
INI 0.22 0.073 0.013 0,0008(wT) 


The computations sequence is such that first the new 
output values of the extrapolating blocks are calculated, 
then the blocks with no input, and finally the remaining 
blocks in such an order that an output is calculated if 
all input values valid for time (п+1)Т are known. For 
the example of fig. 1 this procedure results in the com- 
puting sequence 5,4,1,2, 3 И the two integrating blocks 
are extrapolating (INE) blocks. It is possible to use an 
interpolating block INI instead of number 5. In that 
case the computation sequence becomes 4,5,1,2,3. 

И the routine SOR which determines the sequence of 
calculation cannot find such a sequence, this is caused 
by the fact that a loop without an extrapolating block 
is present or that an input number is encountered with 
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no corresponding output number. 

In that case an error message is printed and the user 
has either to insert an extrapolating block in a loop or 
to correct the input number error. A loop without an 
extrapolating block can be corrected by changing an 
integration INE into an integration INI or by inserting 
a block DLE, which is an extrapolating block. 


8. SORTING METHOD 


The routine SOR puts the blocks in the array SOR (52) 
in the computation sequence. The blocks have been put 
already in the order of increasing number value in the 
array SEQ (52) by the routine SEQ. This subroutine 
SEQ has also determined the total number of blocks 
NB, the number of extrapolating blocks NM and it has 
set all output values of the array SIG (205) to one 
except those belonging to not-extrapolating blocks, 
which are set to zero. Now the routine SOR scans the 
blocks of the array SEQ. As soon as a block with output 
value one is detected the sum of the inputs, which are 
in the array SIG (205), is determined. If this sum is 
zero the block number is placed in the array SOR and 
its output in the array SIG (205) is set to zero. This 
process is repeated until the NM extrapolating blocks 
are put in the first NM places of the array SOR in re- 
versed order so that a block selected earlier comes after 
a block selected later. If after NM scans through the 
array SEQ the number of blocks put in the array SOR 
is smaller than NM an error message is printed and the 
routine is finished. The user has to make his correction 
of the model structure. After placing the NM extra- 
polating blocks the remaining blocks are placed. First 
the output values of the not-extrapolating blocks are 
set to one, Then the blocks of the array SEQ are 
scanned and when a block with output value one is en- 
countered it is considered for placing in the array SOR. 
If there is no input it is put in this array and its output 
value is set to zero. If there are inputs the sum of these 
inputs is determined. If this sum is zero the block is 
placed in the array SOR and its output valuc is set to 
zero. The blocks are placed in SOR in the order of 
selection, This process is repeated until NB blocks are 
put in the array SOR. Hf after NB-NM scans the number 
of blocks in SOR is smaller than NB. an error message 
results. The blocks for drawing plots are finally added 
to the list, 


9. PROGRAM FLEXIBILITY 


As the program is written in BASIC it is simple to alter 
or to extend if the user knows BASIC. Adding a new 
block type is a matter of programming a few BASIC 
lines and extending the TYP$ in the routine INITIATE 
with 5 characters containing the mnemonics for the 
new block, the number of inputs and the number of 
parameters. The MONITOR instruction : ON TYP(X) 
GOSUB has to be extended with the line number 
where the new block subroutine starts. 

The existing BASIM version already contains a number 
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of block types BTO, BT1 to BTS which have to be user- 
programmed оп prereserved program lines. The existing 
routines only contain the BASIC line RETURN. They 
must be programmed before introducing a model from 
keyboard or tape. 

As the computer does not know the number of param- 
eters it first asks for this number and after that it asks 
for each parameter separately. 

It is possible to use simultaneously blocks preprogrammed 
in BASIC, user programmed blocks and blocks prepro- 
grammed in machine language which use internal DAI 
routines. 


10. MEMORY SPACE AND COMPUTATION SPEED 


The RAM memory space required for the program, data 

storage and graphics is 

— 6,5 K for model structure, parameters and output. 
Each block has a maximum of 6 input numbers and 4 
parameters, 

— 16 K for the BASIC program. 

— 20 K for the high resolution 256 X 352, 4 colour 
graphics. 

— 4 K for machine language routines. These data are 
stored twice. They are loaded from DATA statements 
in the BASIC program into the program area of the 
memory by the routine INITIALIZE. 

This means that 0.5 К is available for programming user 

defined blocks. For each time step the computation 

time for the ML version can roughly be determined by 
the formula 


14 + 7 NP + 3 NB millisec 


where NP.is the number of graphs (maximum 3) and NB 
is the number of blocks (maximum 200). 

The computation times required for calculating one time 
step of the model of fig. 1 is given in the table below 
together with the times of other THTSIM realisations as 
described in [8]. Plotting times are not included. 


Computer Language Time 
millisec./time step 





PDP 11 MACRO 11 2.9-15 
LSI 11 MACRO 11 83 
LSI 11/23 MACRO11 ` 4,8 
LSI 11 FORTRAN 21 
OSBORNE CP/M FORTRAN 30 
BICBOARD CP/M FORTRAN 68 
APPLE ASSEMBLER 18 


APPLE ASSEMBLER 7,5 
(with AM9511) 


DA! BASIC 160 
(with AM9511) 


DAI ML-ROUTINES 15 
(with AM9511) 


CONCLUSIONS 





BASIM is a very flexible and yet powerful block 
oriented simulation language which is now available for 


all personal computers using BASIC. The cost of such 


a 


tool for simulating dynamic systems is such that a 


wide spread use for educational purposes is possible. 
Replacing part of the program by machine language 
routines will increase the speed by a factor 10. 
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The biock tvpe is denoted with a three character 
mnemonics, In this example PLS = pulse function, ATT 
= attenuation, INE = integration, VPC = product of 
variables and constants: the output variable is y; input 
variables are ij. i5. in and parameters are py, Po Рад: 


The formulas for these blocks are 
PLS гу = pg for p] Sty < p 

у =o for t < p, and t > p; 
VPC: ye ig P1 Fig Pa + oi Pn 
ATT: y зір 
INE суі 7 Ya t T/2 Gia -i, 4) 


Each block in the diagram is uniquely identified by a 
number which corresponds with its output variable. 
For simulating the dynamic system of fig. 1 the block 
numbers, the interconnections and the parameters are 
inserted into the computer as shown in the following 
listing. which is explained below. 

TYPE COMMAND ? NS 

SOURCE KORT * К 

STRUCTURE 

21 PES 

22 УРС 1 5 4 

23 ATT 2 

24 INE 3 

25 INE 4 

PARAMETERS (РІ, P2 … Pn) 

1210220021 

2?1?-0.?-0.5 

3?10 

470 

570 

TIMING 

DELTA 71 FINTIM ?100 

PLOT BLOCKS ‘NR SPACE NR. ETC.) ?0145 
RANGES 

RANGE NR 0 MIN ? 0 MAX ? 100 

RANGE NR 1 MIN ? -2MAX ? 10 

RANGE NR 4 MIN ? -20 MAX ? 20% 

RANGE NR 5 MIN ? -2 MAX ? 26. < 

TYPE COMMAND? d 

After loading the program and typing RUN the com- 
puter asks by printing 7 the information from the user. 
The first question asks for а command which is in this 
case NS ‘New Structure}. For model input two sources 
are possible : K ‘Keyboardj or T (Tape). In the example 
K is given. The user then defines for each block of the 
structure its number, the type and the input-numbers. 
The structure input is finished by a carriage return. 
Then the computer asks for the parameters of each 
block. If it knows the number of parameters it asks for 
each parameter separately. If it does not know this 
number it first asks for this number and then for the 
parameters separately. They are inserted by the user. 
Then the computer asks for the timing data consisting 
ої the time step DELTA and the total simulation time 
FINTIM. After this the numbers of the block outputs 
to be plotted are asked for, The first one (0 in this case) 
is the X value and the remaining ones are Y-values. In 
the example the outputs 1,4 and 5 are plotted against 
time as 0 is used for the time variable. Finally the com- 


puter asks the ranges of the variables to be plotted 
consisting of a minimum and a maximum value such 
that MAX2MIN. The model input is finished by a TYPE 
COMMAND question. During the input appropriate 
error messages are used when giving improper inputs. 


4. COMMAND LIST 


The commands available are detailed below. From this 
list the conversational capabilities of the program be- 
come clear. The computer asks for a command by print- 
ing TYPE COMMAND and this question has to be ans- 
wered by one of the commands of the list. TYPE 
COMMAND? is printed after loading the program and 
initiating it by the BASIC-command RUN, after having 
executed a previous command and after interrupting a 
simulation run by pressing the space bar. 

The commands are : 

— NS (New Simulation;. The computer prepares itself 
for the input of a model and asks for the necessary 
input data as shown in the previous section. 

— NG (New Graph). The computer clears the screen and 
draws 10 horizontal and 10 vertical grid lines for 
plotting graphs. The lower part of the screen remains 
available for 4 character lines where further conversa- 
tion between user and computer is printed. 

— S (Simulate). Starts Simulation from the initial con- 
ditions, Outputs of integrators are set to the initial 
conditions and plot points for time = 0 are plotted. 
The simulation is continued until the time equals 
the value FINTIM, which is indicated by printing 
END RUN or until it is stopped by pressing the space 
bar. 

— P (Proceed Simulation). The program continues sim- 
ulation from the existing conditions. The command 
can be used after END RUN, Then automatically the 
time range of the graphs is adapted to display the 
nex part of the graph. It also can be used after inter- 
rupting a simulation run. Changes of structure or 
parameters can be introduced etc. and then the run 


can be continued without further changes of variables. 


— TA (Type All}. Prints all data of the model. 

The screen is cleared and the block data including 
output and parameters are displayed with onc block 
per line. 

— TT (Tvpe Timing). Prints DELTA and FINTIM. 

— TPL (Type Plots}. Prints plotnumbers and plotranges. 

— TX (Type number Xj. Asks for a block number. 

After inserting it the data of this block are print- 
ed. 

— CS (Change Structure). New blocks can be inserted in 
a format as described in the previous section. Carriage 
return finishes the structure change. 

— CT (Change Timing). Values of DELTA and FINTIM 
can be changed. 

— CPL (Change Plotblocks;. The blocks to be plotted 
can be changed followed by a range input. 

— CR (Change Range;. The range of a plotblock can be 
changed. 

— CP (Change Parameter). Asks for a block number. 
After inserting it the program asks for the parameters 


of this block. 


—— FO n Q OI I FI THÍ'I I. n ына 
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— DX (Delete number X). Asks for a block number to 
be deleted. 

— VX ‘Value number X). Asks for a block number of 
which the output value has to be printed. 

— STOP. Interrupts the program for saving or loading 
models structures to and from tape and for using 
direct BASIC instructions. 


§. DATA STORAGE 


A two dimensional 205 X 6 array PAR (205,5) is defined 
for storing model structure and model parameters. Each 
row of this array has 6 X 4 bytes containing the data of 
one block. 

The maximum number of blocks is 200; row 0 is used 
for timing data, rows 201 to 205 are used for plot data. 
Each block has a maximum of 4 parameters and 6 in- 
puts. The first 8 bytes are used for numbers between 0 
and 200 respectively representing the block type, the 
number of input signals and the actual numbers of the 
input signals. The last 4 X 4 bytes are used for maximal 
4 parameters. Saving on tape and loading from tape of 
model structure and model parameters is done by 
saving and loading the array PAR. 

A one-dimensional array SiG (205) is used for storing 
the output values of the blocks. 

SIG (0) contains the variable TIME. An array SEQ (52) 
of 4X52 bytes is used for storing the numbers of the 
blocks of the model in order to increase the number 
value. An array SOR (52) of 4X 52 bytes is used for 
storing the numbers of the blocks of the model in the 
computation sequence. 

A character string ТУР$ is defined containing a series 
of sets of 5 characters. Each set contains three charac- 
ters representing the mnemonics of a block type (e.g. 
ATT, CST, etc.), one character denoting the number of 
parameters and one character denoting the number of 
inputs. 

The setnumber in the series is the code which the 
computer uses for the block type. 


6. PROGRAM ROUTINES 


The program consists of the routines mentioned below, 

- INITIALIZE. This is the program for defining the 
arrays and the character string mentioned in the 
previous section. It is entered after loading the pro- 
gram by the BASIC instruction RUN. It also contains 
the data for the machine language routines. They are 
loaded in the proper RAM space by this routine. 

- MONITOR. This is the central program to which the 
computer returns after INITIALIZE and after having 
executed a BASIM command. It also controls two 
loops : an outer loop for the time steps and an inner 
loop for the calculation of the various blocks in one 
time step. The subroutines for each block type are 
called from the inner loop including the blocks for 
graph plotting. A maching language program is 
available for the inner loop. Slight alterations in this 
monitor program (removing and adding REM state- 
ments for some BASIC commands) enable the use of 
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calculation routines in BASIC or machine language or 
both. x 

— STRUCTURE INPUT. This subroutine handles the 
input of a new structure from keyboard. lt is entered 
after the command М5. | 

— BLOCK INPUT. This subroutine handles the input 
of the data (type and input numbers] of one block. 
It is entered from the subroutine STRUCTURE 
INPUT and after commands for changing the structure. 

— PLOT BLOCK INPUT. This subroutine handies the 
input of the block numbers to be plotted. Ir is used 
after the command NS and the command CPL 
(Change Plotblocks). 

— RANGES INPUT. This subroutine handles the input 
of the ranges after the command NS, CPL or CR 
(Change Range). 

— PARAMETERS INPUT. This subroutine handles the 
input of all parameters of a structure from Keyboard 
after the command NS (New Structure). 

— PARAMETERS ONE BLOCK. This subroutine 
handles the input of the parameters of one block. It 
is used by the subroutine PARAMETERS INPUT 
and after the command CP (Change Parameters). 

— TIMING INPUT. This subroutine handles the input 
of timing data after the command NS (New Structure) 
and CT (Change Timing). 

— SEQ. This subroutine puts the numbers of the blocks 
of the model in the array SEQ (52) in the order of 
increasing number value. It is used by the routines 
NS, CS (Change Structure) and DX (Delete block X). 

— SOR. This subroutine rearranges the numbers of the 
array SEQ (52) in array SOR (52) in computation 
sequence before actual simulation. 

— COMPUTE BLOCK. These are subroutines, one for 
each block type, to update the output values of the 
blocks during each time step of the simulation. 

The machine language program contains also a routine 
for each block. 

— BASIM COMMANDS. These are subroutines for 
handling the user commands mentioned before. 
They are entered from the MONITOR. 


7. COMPUTATION SEQUENCE 


An essential feature of a digital simulation method for 
dynamic systems is the sequence of calculations. At 
time nT the output variables of all blocks are known, 
starting with the initial condition for n = 0. Then for 
each block a new output variable valid for time (п +1)T 
has to be calculated, A general block diagram for a 
dynamic system has a structure as shown in fig. 2. 

The equations associated with this system are 


= (assu) 
y = g(x.u) 


The example of fig. 1 also has this structure. 

The loop structure of fig. 2 generally implies that for 
integrating vector f to x we have implicit equations, 
They could be solved using interpolating digital integra- 
tion methods by iterative procedures which, if conver- 
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Simulation program (BASIM) for personal computers 


SUMMARY 


R.P. Offereins and J. W. Meerman * 


The paper describes a block oriented interactive simulation program BASIM written in BASIC for 
personal computers. It details the interaction possibilities between user and computer by describing 
the available commands and their effects. It describes the organization of che data storage, the task 
of the various routines and the method of determining the computation sequence. Finally the re- 
quired memory space is given and the computation speed is compared wich similar programs. 


1. INTRODUCTION 


Block oriented simulation of dynamic systems originates 
from the time that it was the only method for obtaining 
simulation results using analogue computers [9]. Several 
authors describe block oriented simulation programs 
[1-8]. There are a number of advantages in using such a 
block oriented interactive simulation language instead 
of some general purpose language. 
— The user keeps a close relation with the actual physic- 
al system via its block diagram. 
— The language is very simple and can be learned in a 
very 
— Tne conversational interactive capability facilitates 
changes of model and parameters at any moment. 
— The sequence of calculations and of plotting variables 
is automatically arranged in the right way. 
The simulation language BASIM as described in this 
paper is written in BASIC. It is developed for personal 
computers. It is similar to and based on the program 
THTSIM [1. 3]. which was developed by the Control 
and Automation Group of the Twente University of 
Technology and which is now successfully used by 
some hundreds of industries and institutes, THTSIM can 
also accept models formulated with bond graphs [2.3]. 
THTSIM originally is written in assembler for PDP-11 
minicomiputers or LSI-11 microcomputers. Meerman 
announced THTSIM for personal computers [3]. 
An assembler version on Apple ll and FORTRAN ver- 
sions on CP/M and other computers are available now 
[8]. The disadvantage of BASIC is its slowness. The 
advantage is that it is an interactive language which 
makes it possible to mix BASIC and BASIM. An early 
version of BASIM is described in [7]. Experience with 
the Apple II assembler version shows a difference in 
computing time of roughly a factor 20. The calculation 
part of BASIM is also in machine language giving an 
increase in speed of a factor 10. The greater part con- 
taining input, interaction with the user, error checking, 
preparing the sequence of calculations, etc. can remain 
in BASIC. 


2. COMPUTER CONFIGURATION 


The personal computer configuration used for develop- 
ing and using the program is a DAI personal computer 
with 48 k RAM. a B/W portable TV and an audio cas- 
sette, The personal computer is based on the 8080 A 
microprocessor. The version used contains the arith- 
metic chip AM9511. Integers and floating point num- 
bers both use 4 bytes. The DAI has good graphic 
possibilities with a resolution of 256 X 352 pixels of 4 
colours or grey levels which can be chosen at will. The 
cost of the configuration as described was $ 1600,- in 
1980. 


3. DESCRIPTION OF SIMULATION LANGUAGE 


The central element of the language is the block. It is 
essentially an element with one output variable, that 
depends on a number of input variables and a number 
of constants (parameters). By interconnecting a number 
of blocks in such a way that input variables of a block 
are connected to output variables of other blocks, a 
structure is obtained which represents the model of a 
system and which is called a block diagram. As a 
simple example we consider in this paper the block 
diagram of the second order system of fig, 1. 

This second order system is the model of а mass spring 
system governed by the differential equation. 


MX+F£+C x= K 





Fig. 1. Block акции af second order system 
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1150 PRINT ","j 
1152 PDEC$-RIBGHTS$(USES,LZ-PPX-1):REM decimales a ecrire 








2 REM 1154 IF LEN(DECS)C-NDAZ THEN PRINT ПЕСФ;:50ТП 1159:REM nbre Чес. < au format 
19 REM ЖЖЕНИЕ НИНЕ 1156 PRINT MID$(UIJSES,PPZ-1,NDZ):i:REM ecriture des decimales 
20 REM жз PRINT USING SUR DAI 48K HERE 1160 RETURN 
30 REM #44 format defini par l'utilisateur st 1990 REM ---------- Traitement Exposants positifs ----- 
40 REM xxx (c) ALAIN MARIATTE & 190.1. mek 2000 IF MIDS(USES,PEZ+1,1)="-" THEN 3000: DEN cas Ex.negatif 
59 АЕМ IHHOHOHOHOHOHHUHHHHOHOHHHIHHHOHHHHRHHHOHOEHOHER 2010 GAUCHES=LEFT$(USES, PEX) :LEL=LEN(GAUCHES):REM partie a gauche de l'Exp 
52 REM 2 
54 REM Р, [=] 1 N | | [U] < [] м CE] 2020 IF MID$(USE$,2,1)="." THEN G$=LEFT$ (GAUCHES, 2) +RIGHTS (GAUCHES, LGX-PP7, 
56 REM ~1) :GAUCHES=6$ 
59 REM Le format est defini par l'utilisateur dans la chaine USINGS. 2022 REM on a supprime le point decimal de la chaine GAUCHES 
62 REM Le nombre de chiffres a gauche du point est celui de la partie 2030 LBZ-LEN(BAUCHES) sEXS-RIGHTS (USES, LZ-PEZ- 1) sEXZ=VAL (ЕХФ) sREM valeur de 
43 REM entiere non-signee (пе pas compter la place d'un signe eventuel). l'Exposant 
65 REM La valeur a ecrire doit etre dans la variable VALEUR (virg.flott 2040  ZERÜX-EXX-2-LGZ:REM nbre de zero a ajouter 
.) 2042 IF ТЕКОХ=Ф THEN 2969: НЕМ pas de zero a ajouter 
79 REM GOSUB 1000 formate у affiche le nombre a l'endroit du curseur cou 2045 ZIERUS-"O":REM cas zeros non significatifs 
rant : 2047 IF LBGX4-6 THEN ZERD$="@" 
72 REM en cadrant a droite et SANS effectuer de saut a la ligne. 2050 FOR 1451 ТО 2ЕВОХ: GAUCHES=GAUCHES+ ZEROS: NEXT 
| 74 REM Оп peut ainsi faire plusieurs USING's sur une meme ligne. 2059 USES=GAUCHES: LZ=LEN (USES) 
| 76 REM Le format de la partie entiere est verifie.S’il est trop grand pa 2070 PEY=(-1):PP%=(~-1):60TO 1998 
| г e 2900 REM ----------- Traitement Exposants negatifs ------ 
78 REM rapport au format defini,la mention ## BAD USING ## apparait. 5000 GAUCHES=_EFTS (USES, PEZ!) :LGZ=LEN(GAUCHES):REM Gart, a gauche de l'exp. 
| 8e REM Les zerns non-significatifs (cadrage part. entiere) sont notes "o 3005 IF LGZ-2.0 THEN 3020:REM cas pas point decimal 
| Wé Š 5018 IF MIDS(SAUCHES,2,1)="," THEN GE=LEFTS (GAUCHES, 2) +RIGHTS (GAUCHES, LGA- 
io 82 REM La partie decimale est tronquee au format-utilisateur defini. PPX-1):8AUCHE$-O$:REM suppr.point dec. 
ШІ 84 REM Un format-utilisateur SANS point decimal ecrit la valeur entiere 3820 LGZ=LEN(GAUCHES) : GAUCHES=RIGHTS (GAUCHES,LGZ-1):REM sppression blanc е 
RK 85 REM suivie d'un point. n tete . 
| B6 REM Avec le programme DOUBLE-PRECISION, modifier la ligne 2047: 5930  EXS-RIGHTS(JSES,LZ-PEX-2):EXX-VAL(IEXS) REM valeur Exposant 
! 88 REM 2047 IF L6Z<=12 THEN ZERO$-"O" 3040  ZERÜX-EXX-1:REM nbre de zeros a ajouter 
| 98 REM 3050 USES="0.": ZEROS="0" 
100 REM зжяжизжижиннники РЕМО зневнененненненанннея | 5050 FOR IZ=1 TO ZERUX:USES-USGES-ZEROS:NEXT 
| 119 REM 3879  USES-USES-GAUCHES:REM creation de la chaine non signee 
129 PRINT CHR$(12):PRINT 3080 IF SGN(VALEUR)-(-1.0) THEN USE$-"-"-USES$:GOTO 5100 
139 INPUT "DEFINISSEZ LE FORMAT USING (вх НННЕ.##) 2"; USING$: PRINT 3090 USE$=" "-USES:REM si positif,un blanc en tete 
| 149 INPUT "VALEUR А ECRIRE: "5 VALEUR: PRINT | 5100 LY%=LEN(USES) sPEZ=(-1):PP%=(-1):G0TO 1090 


| 159 FOR IZ=1 TO 3@:PRINT CHR$(157) 3: NEXT 
| 168 GOSUB 1900: КЕМ appel routine print using 


176 PRINT :REM force le saut de ligne apres le print using Àan alie leden die interesse hebben in het besturen van 
186 GOTO 149 processen met onze DAI, deel ik hetvolgende mee; 
199 REM - ik ben bezitter van twee stappenmotoren en wens zelf 
| 900 REM жн S/P PRINT USING жен een kleine plotter te maken voor het tekenen van printen, 
910 REM - Het formaat van de tekening is juist groot genoeg voor 
|. 1000 LOX-LEN(USINGS) het tekenen van twee eurokaarten. (160 x 210 mm.) 
| 1918 P%=-1:REM PZzpasition point decimal dans le format - De plotter zou bestaan uit : 
| 1020 PPZ=-1:REM PPZ-position point decimal dans valeur а- iwee stappen motoren 48 steps per omwenteling. 
| 1050 PEZX--1:REM PEX-position d'un eventuel Exposant b- twee drivers met constante stroom sturing. 
| 1052 REM on cherche la position du point dans le format c- een single board processor met 8085 en 8155. 
| 1935 FOR I4=0 TO 107-1 4- de voorziene nauwkeurigheid is 1/20 mm. 
1040 ТЕ MIDS(USING$,1%,1)="." THEN РАЕТА e= een voeding. 
1950 NEXT | f- sofiware om alles te sturen. 
| 1080 IF PX-(-1) THEN PZ=L0%+1:GOTO 1988: HEN integer | g- de mogelijkheid voor leden om de plotter na te 
| 1070 NDX-LOX-PX-1:REM nombre de decimales dans le format maken met stukken die in de handel voor een 
| 1075 REM analyse de la valeur a cadrer een geringe prijs te krijgen zijn. 


| 
| 
| 
| 
i 
| 
| 


1989 USES=STRS (VALEUR) :LZ-LEN CUSES) 

1990 FOR 1450 TO LX-1 

1995 IF MID$(USES,IX,1)-"E" THEN PEZZIZ:REM reperage de l'exposant 
1100 IF MIDS(USES,1%,1)="." THEN PPX-IZ:REM pos.point dec. 

1119 NEXT 

1118 IF РЕХ<>5-1.0) THEN 2000:REM traitement nbre a exposant 

1120 IF PP4-(-1.9) THEN PPYZ=LZ:REM integer 

1125 IF PPZ>PX+1.9 THEN PRINT "жж Bad Using *#":GOTO 1140 

1139 PRINT ЗРС(РХ-РРА+1) 3: ВЕМ cadrage a droite 

1149 PRINT LEFT$(USES,PPZ);:REM ecriture partie entiere 

1145 IF PPZ=LZ OR FRAC(VALEUR)-9.0 THEN 1169: КЕМ inutile d'ecrire .0 


š --Indien er leden zijn die me kunnen helpen met schema's 

of software voor het sturen van de motoren zou dit een 
welkome hulp zijnin mijn programma. 

- Zou het mogelijk zijn om hulp te krijgen bij kleine 
mechanische montages ? Mits vergoeding eventueel, 

- Ook heb ik interesse voor een snelle A/D omvormer 
voor de DAI. (500 kHz indien mogelijk) 
Enkel het type en de prijs zijn doorslaghevende elementan 


Mijn nieuw adres is: 
termote wouter 
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nieuwe plaat begin zet ik een marker, waarvoor ik een niet door FWP gebruikte 
ASCII-code onder de 20 neem of een teken dat ik toch nergens gebruik zoals # 
of 1, Eveneens met behulp van dit soort tekens kan ik de gegevens zoals plaat- 
titel, artiest, genre, datum, e.d. scheiden, Ben ik klaar met invoeren van de 
gegevens dan kan ik een basicpragramma nemen (schijven) dat de gegevens sor- 
teert. We lezen de gegevens dan met PEEK en schrijven met POKE of mbv kleine 
machinetaalroutines voor verplaatsen van records. (іп beide betekenissen !) 
Deze machinetaalroutines kunnen handig geplaatst worden in buffer 2. Maar nu 
kom ik toch aan het tweede deel van dit artikel waarin ik wilde laten zien hoe 
ik een praktisch probleem, dat vrijwel iedereen weleens heeft meegemaakt, op 
een voor mij veel minder vermoeiende manier heb aangepakt. Dat de DAI hierbij 
behulpzaam was zult U al vermoeden. 


Ik kwam in de gelukkige omstandigheid dat ik een eigen, hobbykamer in ons huis 
kon gaan inrichten. In deze kamer zouden echter verschillende meubelen ge- 
plaatst dienen te worden, Deze meubelen hebben vanzelfsprekend bepaalde afme- 
tingen en het zou passen en meten worden om alles wat ik in de kamer hebben 
wilde, ook daadwerkelijk op een bruikbare manier te plaatsen. Ik had er echter 
geen zin in om steeds iets anders te gaan proberen door met zware meubelen 
heen en weer te lopen zeulen. Ik zacht en vond een oplossing en wel gen die 
lichamelijk een stuk minder vermoeiend is. 


Ik maakte een programmaatje waarmee ik mijn meubelen kon verplaatsen in de ka- 
mer. De werking van het programma zal ik aan de hand van de listing uitleggen. 
Tevens heb ik de listing gegeven in een vorm die erg handig is bij gebruik in 
het onderwijs. Ik geef er vesl commentaar bij ,dat in de leerfase erg nuttig 
kan zijn, maar voor geoefende programmeurs veel te uitgebreid 18. Dus zal ik 
deze opmerkingen ook niet in REM's geplaatst willen zien. We kunnen het ber 
schouwen als het een samenvatting van Че mondelinge toelichting, die ik er bij 
zou hebben gegeven. 


Кате mdel img 


19 REM KAMERINDELING / F.H. DRUIJFF - 19840492 
Identificatie van het programma 
20 MODE &:COLORG 8 14 9 14:CLEAR ZOGO:DIM Х(25),Ү423):6070 9900 


Deel van initialisatie van het programma, 
De CLEAR moet hier staan, want die mag nooit in een subroutine 
geplaatst worden, Als dat toch gebeurt “verliest” de DAI zijn 
correcte terugkeeradres. Meestal zal programma dan ‘crashen’. 
за XLzX*L:YBeY*B:iDRAW X,Y XL.Y K:DRAW XL,Y XL,YE K 
да DRAW XL,YB X,YB K:DRAW X,YB X,Y К: RETURN 
Het tekenen van de rechthoek. 
Voor de snelheid zetten we deze routine voor in ht programma. 
Merk op dat voor snelheidswinst eerst XL en YE worden berekend. 
өй L*L*255/294:BH-B255/294:1F Fel THEN Бсісі-БіВ-БіҒ-д 
In de juiste schaal zetten van de gegevens en als de viag gezet 
is (Fei) Lengte(=L) en Breedte(=B) verwisselen, 


79 бовив 59 
8e KT17:808UB Zé:HzGETC:IF Нед GOTO S@:k=14:G0SUB 20 
Tekenen van object en wissen indien er actie volgt. 
98 IF Н<24 THEN Х=Х+Х (Н) :YsY*Y (OD : GOTO ВО 
Veranderen van de coordinaten van ons basispunt. 
199 KR17:iHSCHRS$(H):IF Ht2"Z" THEN HeH-32:Fz1:H$-CHR$(H) 


Toetsaanslag omzetten in tekst, Sneller en overzichtelijker, 
Vlag zetten als SHIFT werd gebruikt. 
Elke toetsaansiag automatisch in hoofdletters zetten, 
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Voor werpen 


266 IF H$-"B" THEN L-170:B-85:G0TO0 69 

210 IF H$z"L" THEN L-71:B-46:G0T0 60 

220 IF H$="S" THEN L-195:B-249:G0T0 60 

236 IF H$-"H" THEN 1597: В8<45:60Т0 64 

246 IF H$z"C" THEN L-65:B-58:80T0 69 

258 ТЕ H$z"K" THEN L=51: B=58: GOTO 69 

260 IF H$z"U" THEN L-375:B8-294:G60T0 69 

270 IF H$=" " THEN К=19: 60508 30:X-1:rYei:L-0:B-0:60T0 Déi 
280 IF H$z"W" THEN K=23:GOSUB 30:K=18:GOSUB 36 

290 . GOTO 86 


initialisatie 


ее ” X(18)2-1:X (19) 51: X (22) 5-10: X (23) 516 
916 Ү(16)=1:Ү(17) 2-1:Y (200 2101 Y (21) 5-10:G0TO 89 
Dit is het vullen van de array's die voor de verplaatsing zorgen, 


Zoals U ziet is het programma met FWP al van verschillende aanwijzingen voar- 
zien, Regels zonder regelnummer vanzelfsprekend niet intikken, En natuurlijk 
voor intikken eerst IMPINT geven. De werking van het programma is misschien al 
duidelijk, maar juist omdat iedereen, die dit programma zal willen gebruiken 
er een eigen versie van zal maken, is het beter под enig commentaar te geven, 
Ма de initialisatie (regels 29, 900 en 919) staat in de listing op 29 en 46 
het plaatsen van het gekozen voorwerp. Dit staat voor in het programma om zo- 
veel mogelijk snelheid te krijgen. От dezelfde reden worden ook XL en УВ uit- 
gerekend. Het tekenen van het gekozen voorwerp gebeurt met behulp van de get 
kleuren 16 t/m 19. Hierdoor is het mogelijk voorwerpen door andere reeds ge- 
plaatste heen te bewegen zonder iets te beschadigen. Leest mijn artikel daar- 
over nogeens door als het aan de hand van het gebruik hier niet geheel duide- 
lijk is. Het programma is een typisch voorbeeld van een "custom made program- 
ma. Ík bedoel hiermee dat er nog geen controles/beschermingen/uitleg inzitten, 
Als U buiten het beeld gaat krijgt U vanzelf een foutmelding, Maar als we dan 
met MODE 6: КОМ vervolgen kunt U probleemloos doorgaan. Om een voorwerp te wis- 
sen eerst het gekozen voorwerp op de te wissen positie zetten, daarna W intik- 
ken en U kunt het naar willekeur verplaatsen of weer vervangen door een ander 
voorwerp. Veranderen van voorwerp is net zo simpel als het kiezen van ervan : 
Tik gewoon de letter in die bij dat voorwerp hoort. Ik koos voor mijn situatie 
B-bureau, L-ladenkast, S-schuifdeurenkast, H-hoge kast, C-computer, K-kluisje, 
V-vertrek. De laatste is nodig omdat ik ook hier de subroutine wilde gebruiken 
Cursor start in (0,0), we moeten dan direct het vertrek plaatsen (Vel 1) dan 
zal de cursor vervolgens steeds op (1,1) terugkomen. Het plaatsen van een 
voorwerp doen we met de spatiebalk, Willen we een ander terugkeerpunt voor de 
cursor of een grotere cursor kunnen we dat in regel 276 (spatie) aanpassen, 
Bv met Х=1@@:Ү=В0:1=2:В=2, De lengte en breedte kunnen gewisseld worden door 
de passende letter met SHIFT in te drukken. Ik hoop dat ik hiermee voldoende 
inzicht heb gegeven in de werking van het programma en het daarmee voor U tot 
een spierpijnvoorkomend hulpprogramma heb kunnen maken. 


Frank H. Druijff 


P.S, De cursorbewegingen van FWP kunnen op geschikte machines versneld worden 
door op #9ЕС2, #1257 en 8137F de #ВЕ te vervangen door HEE. Probeer zelf 
Of uw machine geschikt is. 
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Deze keer wilde it wat vertellen over het gebruik van programma’s ор de DAI en 
het programmeren op de DAI om bepaalde persoonlijke problemen met behulp van 
de computer te kunnen oplossen. Eerst het gebruik van programma’s; hiervoor 
wilde ik niet een klein programma nemen maar een echt groot programma, waar 
veel over te vertellen valt. Іп de bibliotheek van DAInamic is hiervoor een 
ruime keus. Programma's in deze catagorie zijn bijvoorbeeld de assemblers DNA 
en SPL, compilers zoals PASCAL en FORTH (is er wel maar wordt niet geleverd) 
de tekst in grafische modes met FGT, FFGT en SFGT en CHARACTER GENERATOR e 
grafische hulpprogramma’s zoals GRAFIC TABLET, C.L.I.0. en binnenkort SIMPLE 
DRAWING en vanzelfsprekend de wordprocessors WP , DAINATEXT ЕМ FWP. 


Over deze laatste nu wilde ik hier schrijven. Als U de aankondiging van FUP 
hebt gelezen, bent U mogelijkerwijs nog niet overtuigd van de noodzaak om FHF 
aan te schaffen. Zeker als U al in het bezit bent van DAINATEXT die U destijds 
verkreeg door een update van WF, U krijgt misschien de gedachte: Ik laat DAI- 
МАТЕХТ nu vervangen door FWP en dan heb ik er een paar kleine voordeeltjes bij 
en over een paar maanden komt SFWP uit die dan weer een Super versie is van 
FWP en zo blijven we aan de gang. Nu is dit iets waarvan ik van harte hoop dat 
dat inderdaad het geval zal zijn. Steeds door gaan en steeds betere program- 
ma's lijkt mij geen nadeel, Daarbij is het argument, dat er straks nog een be- 
ter programma is, misschien wel waar maar dat programma is er nog niet. Auto's 
van 1995 zijn waarschijnlijk een stuk zuiniger en stiller dan de huidige, maar 
dat is toch geen argument om nu maar te gaan fietsen ? 


Genoeg hierover, ik wil het werken met FWP bespreken. Dat FWP prettiger in het 
gebruik is, is ook voor degenen die het niet aanschaffen duidelijk merkbaar. Ја 
zelfs die mensen profiteren van het werk van Ger Gruiters . Ze kunnen dat zien 
door bv mijn artikelen tot en met DAlnamic nummer 18 te bekijken, die alle mbv 
DAIMATEXT tot stand kwamen en dan in DóInamic 19 & 20 kijken, waar uittestver- 
sies van FWP gebruikt zijn en tenslotte naar dit artikel dat met de definitie- 
ve versie is gemaakt, Het zal U dan opvallen dat de regels aan de rechterkant 
gelijk zijn. Dit was theoretisch in DAINATEXT сок mogelijk maar steeds als ik 
het trachtte te gebruiken, bleek er bij het afdrukken weer iets fout te zijn 
gegaan. Zie artikelen waarbij soms een letter op de volgende regel kwam. De 
oorzaak is te zoeken in de regellengte die ook voor de printer werd vastgelegd 
is mij eens verteld, Een linkerkantlijn de zogenaamde marge was een verschrik- 
king in DAINATEXT, Zei U een marge van В te willen hebben bij een regellengte 
van 78 dan kon U kiezen tussen of de laatste 8 letters op de volgende regel of 
geen waaarschuwing voor regeleinde en dat zelf bijhouden. De regels allemaal 
evenlang maken ging dan ook niet meer, Misschien trap ik met deze kritiek som- 
mige mensen op het hart, daar de fout bij mij lag en ik DAINATEXT blijkbaar 
niet goed kon gebruiken, maar als ik met de veel snellere FWP niet zuike fout- 
en maak, із voor mij het voordeel evident. Een tweede voordeel van РЫР boven 
DAINATEXT is de veel grotere gebruikersvriendelijkheid. Ik zat mij altijd knap 
te ergeren aan de tientallen vragen, die je moet beantwoorden bij DAINATEXT. 
wilt U echt afdrukken’ р "staat de printer aan’ $f ‘wilt U een marge" + "hoe 
groot moet de marge zijn? $ “wilt U een nieuwe раділа" $ “hoeveel regels рег 
pagina’ $ ‘wilt U bladnummering' $ ‘welk nummer om te beginnen” enz. епі. епі. 
Bij FWP is dit gelukkig op een veel betere manier opgelost . In een zogenaamde 
defaultmenu worden aile gewenste parameters bijgehouden, Verandert men een уап 
deze waarden zal de werking van FWP vanaf dat moment eventueel (hoeft niet u 
kunt iets wijzigen wat U tach niet gebruikt) gewijzigd zijn. Het reeds aanwe- 
zige bestand blijft ongewijzigd !!!! En zo hoort het ook. U zet de parameters 
op de manier zoals U dat wenst en als U dan bv wilt printen behoeft alleen под 
maar Р ingedrukt te worden plus een space om vergisingen te voorkomen. Derde 
voordeel: slaat de machine op reset, dan zal in bijna alle gevallen het gehele 
bestand nog aanwezig zijn. (Een netstoring van enige seconden of langer ver- 
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пре 199 wel alles.) Vierde voordeel: het programma is bijzonder geheugeneffi- 
cient} het standaard bestand (buffer 1) is ruim 24K groot (ongeveer 5 vellen 
A4 zeer dicht beschreven, іп de praktijk door blanco regels, marge, alinea's 
ed wel tot 19 vellen). Daarnaast is er nog een tweede buffer van ook nog eens 
Ak. Dus veel meer dan DAINATEXT ooit aankan. Gok de snelheid om een en ander 
weg te schrijven resp. in te lezen is veel groter, Al deze voordelen zijn voor 
sommigen misschien al redenen genoeg om FWP aan te schaffen, maar er is nog 
veel meer. Omdat FWP volledig in machinetaal is geschreven is Че snelheid ten 
opzichte van de vorige tekstverwerkers enorm. Tevens is het nu ook straffeloos 
mogelijk vanuit FWP naar BASIC te gaan en daar iets uit te rekenen, indien ge- 
wenst in een programma, om daarna ҒЫР weer te vervolgen. De ruimte in BASIC 
bedraagt BK dus is MODE 4 net mogelijk. De groottes van de buffers en BASIC 
zijn^theoretisch aan te passen ( contact met Ger Gruiters opnemen ), maar naar 
mijn ervaring en die van andere testers uitstekend gekozen. De variabelen van 
het  BASIC-programma kunnen indien gewenst direct gebruikt worden in de tekst. 
Ger Gruiters heeft voor een voorbeeldprogramma gezorgd, Intikken van “A^ in de 
tekst zal tot gevolg hebben dat bij uitprinten “А” automatisch wordt vervangen 
door de waarde van de variabele A uit het BASICprogramma. Daar ik deze facili- 
teit hier niet gebruik blijft er gewoon “А” staan. Anders was er toch wel een 
tweede manier geweest om “A^ letterlijk op te nemen іп de tekst. Er is name= 
lijk een mogelijkheid om een ASCII-code vlak voor afdrukken te vervangen door 
een andere, hiermee kunnen we bv ^ toch op de printer krijgen door bv 8 in te 
tikken als ASCII 49 en die te laten vervangen door ^. Zo kunnen we ook de con- 
trolebytes die ҒЫР zelf gebruikt toch laten afdrukken, 


Een vreselijk groot voordeel voor mij ais schrijver van deze artikelen en als 
docent computerkunde is de mogelijkheid om een programma in BASIC in FWP te 
plaatsen en dan voor afdrukken te verfraaien. Een voorbeeld staat in dit arti- 
kel. Om dit te doen moeten we gerst naar BASIC. Hier geven we EDIT na en CLEAR 
7300. vervolgens Ebreakl,fbreak] en dan UT. In utility kijken we met DA? АЗ 
(of SAZ en meerdere spaties) naar de adressen van de EDITbuffer. Er zal meest- 
al iets staan als 02 AG 58 Ai wat betekent dat de EDITbuffer van A602 tot 8138 
loopt. We verplaatsen de EDITbuffer van BASIC dan naar een buffer van FWP met 
МАФ02 A138 5000 als we naar buffer i willen en MA@@2 A138 9000 als we naar de 
andere buffer willen. Пе eventuele inhoud van die buffer wordt wel vernield, 
maar daarom is het handig om het juist in buffer 2 te plaatsen zodat U het la- 
ter gemakkelijk in buffer 1 ор de gewenste plaats kunt invoegen. Slimme pro~ 
grammeurs kunnen het ook direct op de juiste plaats zetten, maar kunnen dat 
zelf wel uitvinden. Grote programma's zullen waarschijnlijk in aparte delen 
naar ҒЫР getransporteerd moeten worden. De ‘listing’ van een programma kunnen 
we dan op allerlei manieren aanpassen aan onze wensen. Deze wensen kunnen bv 
zijn: inspringen hij subroutines, regels overslaan ter verduidelijking van de 
structuur van het programma , opmerkingen bij het programma dus niet in het 
programma, lange regels niet aan begin van regel dus tussen de regeinummers 
laten beginnen en niet afbreken midden in statement, marges en paginanummering 
en vele andere mogelijkheden. Voor mij wordt alles netter en voor lezers van 
DAlnamic prettiger omdat de intikfouten die ik wel eens maakte bij het overne- 
men van een BASIC~programma nu niet meer kunnen voorkomen, Omgekeerd gaat het 
ook: we tikken een programma in FWP іп, gaan naar BASIC en tikken POKE %125,2. 
Staan er lege regels of teksten in FWP is dit niet erg, Ч krijgt alleen een 
hele rij “SYNTAX ERROR'-s op het scherm. Maar nog steeds zijn de mogelijkheden 
die ҒЫР biedt niet uitgeput. We kunnen namelijk FWP ook gebruiken voor een 
data-base, We tikken de gegevens, die we willen bewaren,in in buffer 1 en gaan 
die gegevens aanpassen aan de eisen, die wij er aan stellen. Za kunnen we bv 
gaan sorteren. Оп alle misverstanden te voorkomens dit wordt niet door ЕМЕ ge- 
daan maar kunt U zelf vrij eenvoudig doen met een BASIC-programma dat buffer 1 
gebruikt als veld dat bewerkt moet warden. Een voorbeeld dat ik nu niet verder 
zal uitwerken, maar dat een en ander wel zal verduidelijken, Ik wil een be- 
stand hebben van al mijn platen, Ik tik daartoe al mijn platen mbv FWP in en 
3laats de gegevens aldus in ASCII-vorm tussen #3000 en #9000, Als ik met een 
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REM НЯНИ HAHA 


REM HAE RRHH 
REM #### "TEXT IN DATA" GENERSTOR LIII 
REM #834 853444 
REM #### auto-line number + auto-data statement ЯН 
REM #884 HHHH 


REM #888 У1.0 — (C) — B.J.Boerrigter - Dec, 1983 #### 
REM S448 нин 
EE EE 
PRINT СНЕЪ(12) : МОРЕ O:COLORT 8 © о O:CLEAR 5000 
GOSUR 1000 

LINE=S0000:FIRS7T=i:Tig=" e äer "iTZBe" он 

FOR Ісі ТО S0:CLRS=CLRS+" "NEXT 
PRINT CHRS(12):F0 HEDDA, # се: CURSOR 
BRINE "#88 T E X T IN ра 
PORE #BC44, RCH: CURSOR 15 
PRINT “Do not use "3 CHARS 
PRINT :ІР LEN(TEESTS) зе 
CURSOR 12,15:РАТЫТ "Сота? в 
IF FIRST=0 GOTO 180 
CURSOR 15,8:PRINT "First 
CURSOR 15.5: INPUT "Change 
ТЕ VER$-"Y" ОҢ VERSE" y 
IF FIRST-1 THEN FIRST= 
CURSOR 22,52 PRINT "Туре 
POKE #8920.805:РОЕЕ в 
CURSOR O.10: PRINT Ti$-3F 


















кюн 


line number 
















C(BO-LEN(CO 192) 


PRINT T2S+S5FC (40-LEN (TIS) > ° 
PRINT TS$+SPC (S0-LEN(TES)} 
Ті%-Т2%:72%-Т2% 









:PRINT CLRS 
„LENISTR& f 





а 
ы 


TSS-TEKSTR 
ET ët INES$-"DATA"- TE 





FOKE #F4,PTR 
РОКЕ Ste, LETH 
CALLM #ЕВ 
LINE=LINE+i 
вото 


RESTORE:FOR 1-0 ТО A1:READ J:POKE HERO 
DATA #F5,#E5, 805,805, #5 O1, „#з2,#35, 
DATA SO1,84F.82A.8FA, #00,822,852,801, 
DATA #34, #01, #CD, #18, MEE. ‚#35, 
DATA 4SO1.48C1,8D1,8E1, SEI. HCS 









© 















REM This data-statement generator has the po 
REM DATS-statements without typing line numbe 
REM "DATA, 

REM You may start with any iine number. Evt. 
REM existing identical line numbers are delet 
REM By changing in line 250 DATA‘ into КЕМ" 
REM can be used ta generate REM-statements. 
REM The input can be stopped 
REM ran now be seperated via 
REM with other programs. 

KEM The 3 last input lines аге 
к ed window. 
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ERGE 02 














104Е 4009 
insi 4010 
H div 





ok ЖК EE pc eoe 
YM eB OL TAELE 
xxx ЖЖЖЖЖЖ kuk ké A Ak 












AFLUSE i033 CRLF DOSE 
FINT D FRIHTD 1023 
REFE НЫР REFE 1151 





HEP, 
inan CS ji 4D 10 CD Ge 
DG ET BF El EF 
3 DE cb SE DD 
1 55 10 Ee 
іп Ei Fi 









каша 
gü 
ЕП 


Cl 












ENTRY 
ЕНВЕН 
БЕРІ) 


ES ЕЗ 
nc 01 
üi Зі 
DC El 
Ei Di 








MACC ==> D 
АЕ ==> МАСС 


COMPARE Ate АНС D 
RETURH IF D>B+E 


He © --> Mare 
РЕТНТО 

H 

PEU 

H 

D 

Е 


20240 
20940 
21040 
зіт4б 
4 


i000 EXIT 1047 
ESsSá REFA — iüdD 
1155 ICOMP Cnis 





ЕР ос CD SA Ез 
Si 10 CD SA ES 
ій CD за Eo ET 
ES CD 15 Cü Fë 
Ci се 40 пе 4ü 


cont.. ERASE TO END OF SCREEN 


OUT ppe 


EF 
EX 
BS 


DC ES 
ЧЕ FE бі С 
Ei ЕР'О09 2 





app C TO CONTENT OF МАСС 
БЕТ AD 55 ПЕР 
ZALE IT IH 


Erase to end of screen 


Some time ago I was adapting a TRS-80 program which contained the 
instruction PRINT CHR$ (51). The aim of this instruction is to clear the 
screen starting from the current position of the cursor up to the end 
of the screen. Аз my program already contained а machine language part 
I decided to write а subroutine in machine language to do the same, 

The routine was stored at the end of the RAM but now there was а problem 
in using the Dainamic Bootstrap Loader V2 (see Dainamic 12, 283)« 

The DBL expects the Basic program after the machine language part, so 

I made the following changes in DBL: 

Substitute the content of address 20D to 50 and the next address to B5. 
Put zeros in the addresses 3DC, 3DD and 3DE and everything is right. 




























C.D.Esveld 
DUT 
Е LHE PRE 
опа BLAME CURSOR 
Е POSITION 
12 st COORD, 
ліз EEN я 
015 ; б LESC IH REG, o 
014 SUBTRACT VALUE DE X 
п 5 HUMBER ПЕ BLANKS 
іє dE HUMBER OF LINES 
г BLAME 
LIHEFEED 
ЕТ 

0: SET CURSOR POSITION 

= HORMAL CURSOR 

Di 

i: 

F1 

са 
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Basic-variables in machine language program by C.D.Esveld 


PAGE 01 


Sometimes it can be desirable to replace а part of а Basic program by 





ЖТНІЄ МАСНТНЕ LANGUAGE PROGRAM REPLACES 
SLIHES 50, 680 AHD 70 ПЕ THE НЕХТ BASIC PROGRAM 








machine language to do things faster. 

in order to get access to the already defined Basic variables we have to find М ЕЕ 

out where those variables are stored. "his can be done by examining the symbol ж ^ 

table, the start of which is pointed to by memory address 241/242. In the + 

Symbol table every variable used by the program is present with its name * | STEP C 
(in ASCII), its value and some other information (for array-variables the Е 


Symbol table gives а pointer to the НЕАР). 
Е ТНЕ МЕНТТОНЕО LIMES ВУ: 
ӘП CALLA #1000 


ЖТНІЄ PROGRAM IS AN APPLICATION OF ROM ROUTINES 
ЖЫТТНТН AM EXCISTIHG BASIC PROGRAM 
ж 


For example, if you want to use the variable VAR in machine code, look for 


the sequence 56 41 52 in the symbol table and mark the byte which is preceding 






the name. This byte, the so-called type/length byte, is 04 for floating point 








variables, 14 for integer variables and 2x for string variables with a length 
of x bytes. Subtract the address of the start of the symbol table (as indicated 
by 2А1/2А2) from the address of the type/length and you have the so-called 
offset for the variable VAR. Adding this offset value to +4000 gives you the 


«ОБЕВНМЕКІ C.D.ESUELD 








*THE FULLDMWIHG ENTRA 





"ІНТЕ 





ARE СЕКІМЕР FROM THE 










INTEGER COMPARE 

РЕТНТ INTEGER HUMBER 
LIHEFEED 

SEARCH IH SYMBOL TABLE 


reference number which is to be used by the ROM routine starting at &E95A. 
Load the reference number into the registers B and C with LXI B, then CALL 





#E95A and as a result the memory address of VAR is present in the registers 











Е and Г. The registers B and C now contain the offset of the next variable. 52 ЕНТЕУ SAME ALL REGISTERS 
ж 
Of course there is the possibility to use the variable address directiy 2 ES 
but one cann't be sure that this address will always be the same ав the орега- "RE F3 
019710 IPLE ñ 
ting system determines the location of the symbol table. uF CDSRES Ч SVHBOL TABLE 
After you have found out your reference numbers you don't have in general ES ñ 
the possibility to add new variable names to your Basic program unless you йг UC Б COPY A IM MACE 
ha dne sheds Sob again: on peer LOOK FOR E IM SYMBOL TABLE 
010 Е? 
Next program is an illustration of the concept mentioned above and it also 1011 Ес ADD E TO A IM МАСС 
shows some mathematical features using the ROM routines which are available E 215: 210 
7 
with RST 4. The name MACC stands for the mathematics accumulator, which is ni& Û 





4 bytes long. 
Note that this program is not suitable to demonstrate gain in speed. 
In the case you want to use array variables, things are a little more 


complicated but this article may be a good start to solve that problem. 


BASIS VARIABLES IN 
MACHINE LANGUAGE 





CRINT DO 
LIHEFEED 
OFFSET UR. C 


РЕІНТІ 











RAREN 
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RENSDES 


Testverslag Ken-dos. 
Hier volgt dan eindelijk het testverslag over het nieuwe Floppy-disk 
systeem dat ontworpen is door Kenneth Gooswit voor de DAI-computer. 


Tessenderlo, 92/04/84 


Dat bij het ontwerp van dit systeem de uitwisseling van programma’s 
tussen de reeds bestaande opslagmedia en de snelheid van dit nieuwe medium 
centraal hebben gestaan werd me reeds bij het aansluiten van het systeem 
duidelijk. Het naar de DCE-bus brengen van де HOLD-line van de CPU door 
middel van een soldeerverbinding is de enige hardware verandering die aan 
Uw computer moet uitgevoerd worden naast het aanbrengen van het EPRÜM-board 
ор de X-bus. Deze handelingen zijn in het manual uitvoerig beschreven. 
Verder wordt het systeem gewoon met de flat-cable waarmee het is uitgerust 
met de DCE-bus verbonden. De constructie is zodanig dat U apparaten die met 
de DCE-bus van Uw computer verbonden waren nu met het Floppy-systeem 
verbindt. De commando-set is zodanig dat uitwisseling tussen DCR, Floppy еп 
cassette zonder meer mogelijk zijn. Dit geldt zonder enige uitzondering 
voor elk programma, geschreven in BASIC, machinetaal of Tiny-Pascal, zonder 
reloceren of de heap-pointers aan te passen. Naast de DCE-bus aansluiting 
benodigd het apparaat een net-aansluiting welke gebeurt met een stevige 
kabel welke rand en pen aarding toelaat. Het is aan te bevelen deze 
aansluiting te voorzien van een netfilter. 


De te gebruiken drives zijn van het Shugart type, de densiteit en 
het aantal tracks (40 of 80) heeft geen invloed op de hardware zolang de 
track-to-track steptime kleiner of gelijk is aan 5 milliseconden. De 
capaciteit van het systeeen is dus door de gebruiker volledig zelf te 
bepalen en kan zelfs oplopen tot 2,2 Mbyte wanneer vier double-side drives 
gebruikt worden. Door een kleine hardware verandering kunnen ook 8 inch 
drives gebruikt worden, maar dan enkel in single density. 


De gebruikte schijven zijn 5"1/2 inch soft sectored. Ze worden 
geformatteerd ор 40 of 80 tracks met vijf sectors per track. Zodoende 
krijgt men 200 nf 469 kbyte per schijf. Het moet wel gezegd worden dat dit 
per zijde is, Ken-dos ziet een dubbele drive als twee enkele. Пе eerste 
drie tracks worden gebruikt voor directory zodat per schijf 185 of 285 
kbyte ter beschikking staat van de gebruiker. 


Het disk operating system zit in Eprom om de uitwisseling van 
programmas die het Ram gedeelte vanaf #2ЕС gebruiken mogelijk te maken. 
Naast dit operating system is nog plaats vrij voor vijf EPROMs waarvan het 
type door jumpers te leggen of te verbreken kan gevarieerd worden van 2 
kbyte to 16 kbyte. Hierin kunnen -door de gebruiker veel aangewende - 
programmas geplaats worden die door een simpel commando naar het 
werkgeheugen verplaatst worden. Bij het door mij getestte toestel was FWP 
aanwezig, De tijd benodigd om het te verplaatsen is practisch onbestaande 
en nodigt je niet uit om hem te meten. Hierin kan ook - later - het CP/M 
operating system gepaatst worden. 


De commando tabel is compleet, en zowel bruikbaar in direct mode als 
in programmas op dezelfde manier als dit is voor de DCR commandos. De tabel 
bevat commandos voor het laden en wegschrijven van basic en machinetaal 
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sss en 


programmas. Vanuit de directory kan door middel van een enkele toets te 
drukken een programma geladen of geladen en gerund worden. De commandos 
LOCK, UNLOCK, PRT en CLR welke samenwerken met het het commando CODE laten 
het beveiligen van schijven of afzonderlijke programmas toe tegen lezen, 
schrijven en formatteren. Het commando DCR schakelt de volledige DCR 
commando-set - die uitgebreid is met het commando DISK - in zodat lezen en 
schrijven van en naar DCR mogelijk is. Het commando DISK laat U toe terug 
te keren naar de disk commandoset. Evenzo laat het commamdo CAS 
communicatie met de audio-cassette mogelijk. Op deze manier kan eik raads 
bestaand programma van DCR of cassette overgezet worden op schijf. 


Een testverslag ware niet volledig als het geen tijden bevatte over 
het formatteren en copieren van een schijf. Het formatteren van een schijf 
net een capaciteit van 200 kbyte heeft tussen het drukken op de returntaets 
en het terug verschijnen van de cursor 35 seconden nadig. Een BACKUP is 
afhankelijk van de inhoud van de te copieren schijf maar heeft voor een 
volle schijf dezelfde tijd nodig als het formatteren, 25 seconden. Het 
laden van programmas is alleen merkbaar wanneer de lengte aanzienlijk is 
maar zal nooit meer tijd vergen dan vijf a zes seconden. Een voorbeeld : 
het laden van een tekening in MODE & vergt vier seconden. Dit opent de deur 
voor animatie door middel van floppy. Deze tijden zijn allemaal gemeten 
zander de drive motors op voorhand ор snelheid.te laten komen. 


Het systeem heeft de mogelijkheid om met random files te werken. De 
grootte van de ingelezen sector (1024 bytes) is wel een beetje onhandig 
maar gebeurt zeer snel. Verder is het niet moeilijk om deze sector te 
verdelen over een string array door middel van een kleine machinetaal 
routine zodat hij direct bruikbaar is. Het ontwikkelen van een Data-base is 
dan ook een van m'n volgende opdrachten. à 


Verder blijft er me niets over dan m'n algemene indrukken aan U over 
te maken en iets te zeggen over de kostprijs. Hoed af voor Ken, die het 
ontwerp en op punt stellen van dit systeem verwezenlijkt heeft. Hip hip 
hoera, eindelijk een degelijk floppy-systeem voor de DAl-computer. De prijs 
is afhankelijk van de gebruikte drives en schommelt tussen 44500 Bf en 
74900 Bfr. De leveringstijden vormen echter een probleem en de 
wachtlijst voor de aanschaf van een systeen is nu reeds enorm. Het door mij 
geteste systeem vertoonde tijdens gebruik geen lees of schrijffouten na een 
periode van ongeveer zes uren ingeschakeld te zijn geweest. Voor nog meer 
informatie en aanschaf kan U terecht bij : 


Voor Belgie : MIKROSHOP HAGELAND 
HERSELTSESTEENWEG 193 
3220 AARSCHOT 
BELGIE 
TEL : 015/56 87 70 


Alle andere landen : MIPI v.o.f. 
Р.0. BOX 4e 
1616 ZG HOOGKARSPEL 
THE NETHERLANDS 


Het lijd geen twijfel dat de DAI-computer door middel van 
dit systeem een nieuwe Воде vlucht zal nemen. 
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SEN [e Cen ЕЗ 
Tessenderlo 02/04/84 


Test report Ken-dos. 
Here is - at last - the test report concerning the new Floppy-dise 
system designed by Kenneth Gooswit for the DAI computer. 


That, designing the system, exchange of programs and data between 
existing peripherals and speed of the system has been the major factor is 
clear when connecting the system. The Hold-line of the CPU has to be 
connected whit the DCE-bus by means of а soldered wire. Ап EPROM-card has 
to be placed on the X-bus. These two actions are very clear described in 
the manual. The system has to be connected by means of the provided flat- 
cable whith the DCE-bus. The system is constructed in a way that, 
peripherals who where connected whith your computer, now simply can be 
connected whith the floppy-system Тһе DOS commando-set allows exchange 
between DCR, cassette and disk whith no restrictions. This applies to every 
Basic and machine language program whithout relocating or adapting heap” 
pointers. Besides the DCE-bus connection the system needs а mains- 
connection. It is recommended to place а mains-filter between this 
connection. 


The used drives are of the Shugart type, density and num-ber of 
tracks (40 or 80) have no influence on the hardware when track to track 
steptimes are smaller or equal to 6 msec. The capacity of the system is 
completely to be defined by the user and can increase to 3,2 Mbyte when 
using four double-sided drives. A minor hardware modification is necessary 
tc handie 8" drives, but only single density is possible. 


The used disk's are 5"1/2 soft sectared. They are format-ted on 48 
or 86 tracks with five sectors per track, in this way creating 298 or 408 
kbyte. This is for one side, Ken-dos looks at a double drive as two single 
drives. The first three tracks are used for directory, leaving 185 or 385 
kbyte for the user. 


The disk operating system is completely stored in ЕРКОМ allowing the 
exchange of programs using the lower part of RAM starting at #2ЕС. Next to 
the operating system are sockets for placing five EPROMS, the capacity ( 2 
kbyte to 15 kbyte Jis chosen cutting or connecting jumpers. These EPROMS 
can hold (often used) programs who, by means of а simple command can be 
placed in their working area. The unit tested by me incorporated FWP. The 
time necessary to move the program was so short that it did not invite me 
in mesuring it. In these EPROM’s can ~ later -the CP/M operating be placed. 


The DOS command table is complete, and usable in comman mode as well 
in programs in the same way з5 it is for DCR. The table contains commands 
for loading and saving of programs іп basic or UT. When displaying the 
directory you can, Бу pressing one key, LOAD ог LOAD:RUN a program. The 
commands LOCK, UNLOOEK, PRT and CLR in conjunction whith the command code, 
enables you ta protect disks or files against reading, writing and 
formatting. The command DCH enables the whole DCR command set to allow 
reading and writing to DCR. The command DISK performs a return to the disk 
command set. In the same way the command CAS enables reading and writing to 
cassette. In this manner every existing Basic or macine language program 
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сап be copied on disk. 


A testing report would not be complete when 1% doesn't give times 
about formatting and copying disk's. Formatting a disk whit a capacity of 
209 kbyte needs, between pressing the return-key and the reappearing of the 
prompt 35 seconds. Copying а disk depends оп the used space on it, but 
needs for a fully used disk the same time as for formatting, 35 seconds. 
Loading and saving times are only noticed when the programs are of a 
considerable length. Ап example : loading а picture in MODE 6 needs four 
(4) seconds. This opens the door for animation by means of floppy-disk, 
These times are all mesured without heaving the drive motors ready. 


The system has the possibility to create and work with random files. 
The size of a record (1624 bytes) is a bit unhandy but it happens fast. On 
the other hand, it is very easy to divide the sector over a string array by 
means of a small ML routine so it is ready for direct use. Developing a 
database is therefore one of my next missions. 


Оп the end I can only give you my impressions on the system and say 
something about prices. Three cheers for Ken, who realised the designing 
and development of the system. Hip hip hurrah, at last a solid floppy disk 
system for the DAI computer. The price is depending on the drives used and 
is variable between 44500 and 74900 Bfr. The term of delivery is yet 
still а problem. The waiting-list for purchasing a system is already 
enormous. The tested system generated no reading or writing errors during a 
period nf six hours in witch it was swithed on. For more information and 
purchase contact : 


For Belgium : MIKROSHOP HAGELAND 
HERSELTSESTEENWEG 193 
3220 AARSCHOT 
BELGIUM 
TEL : 015/536 87 70 


All other countries : МІРІ v.o.f. 
P.D. BOX 49 
1616 25 HOOGKARSPEL 
THE NETHERLANDS 


Ther is no doubt about it, the DAI computer will take 
another high flight whith this system. 


Couwberghs Frans. 
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afin de Line et d'écrire des quarts de secteurs. Par bonheur, et c'est Là un 
vénitable avantage, toutes Les pistes contiennent fe même nombre de secteurs! 
S'il fallait encore calculer ce nombre de secteurs en fonction du numéro de 
piste! 


Mais il y aura Bientôt Le DOS 3! Сотрафійфо CP/M, il travaillera en 
allocation dynamique, Les enregistrements ne seront donc plus séquentiels mais 
placés en morceaux Là où if y a de La place! De plus, се DOS occupant un peu 
moins de place гп RA que L'actuel sera rnelogealle partout en mémoire grâce à £a 
commande MOVDOS - qui rappelle Le МОУСРИ =, I£ reprendra toutes Les facilités du 
DOS 2.1 en Lui ajoutant Les possibilités de positionnement à £’ intérieur d'un 
fichier - sorte de POSIT -, £a création de formats d'enregistrements - ou FIELD 
=, L'allongement d'anciens fichiers séquentiels - sonte d'APPEND -, Фа Lecture et 
L'écriture dans £e même fichier, L'ouverture simultanée de plusieurs fichiers, sss 
au format CP/M, Ce DOS sera deux fois plus rapide que L'actuel, La vitesse de 
transfert étant de 17 KB/s, I£ sera possible de connecten jusqu'à quatre unités 
de disques, et un utilitaire permettra de лейбле Les disques écrits sous DOS 2.1. 
Ete... Je attends impatiemment, et ne suis pas Le seul! fais jusqu'à quand 
donc? 


Après autant de notes, et avant de conclure cet article, j'adresse 
quelques conseils à ceux que L'utilisation du DOS actuel а nendus ои pourrait 
rendre peAapfexes... Auxautres, j'adresse mon salut! 


DUPAGNE Yannick 
Club DAT Namur 


NOTES : 


L'ordre ASSIGN INPUT FROM RS232 pourrait permettre l'utilisation du clavier d'une machine à 
écrire Brother СЕ-50 en remplacement d'un vieux clavier rebondissant,... si l'entrée par 
1189232 acceptait les ordres du DOS. Hélas, il n'est rien. 


La routine AZERTY prévue sur le disque contenant le DOS n'est pas utilisable telle quelle. En 
effet, son initialisation omet de modifier еп mémoire les pointeurs en 2A7 et 2А8 vers la table 
des codes ASCII. Il faudra le faire vous même. 


Des problèmes de lecture et d'écriture sur disque peuvent se poser si le système est branché 
sur une mauvaise prise... bien sûr! Le 840 K branché dans le bureau de l'économe de l'école, et 
là uniquement, fonctionne mal... une perte due à un autre appareil placé sur le même circuit en 
est responsable. Le DAI fut déplacé! Depuis lors les problémes sont terminés. 


J'ai aussi, par mégarde, placé la main depuis l'écran d'un moniteur Barco jusqu'au chassis d'un 
double drive. Cela m'a coûté une fameuse ótincelle ... et envoyé un lecteur en réparation. 
Veillez à la qualité de votre terre, l'électricité statique ne pardonne pas. 
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L'AUTOSTART des programmes Basic fonctionne parfaitement. Mais le DOS oublie d'initialiser еп 
118 le "RUN FLAG". Attention donc si, dans un programme chargé et exécuté par AUTOSTART, vous 
commettez, lors de l'introduction d'une donnée, une erreur - exemple : vous répondez AA à un 
INPUT В ou vous frappez un 0 au lieu d'un zéro - l'ordinateur refusera із réponse en vous 
renvoyant un SYNTAX ERROR et en arrêtant le programme définitivement, sans vous donner de 
numéro de ligne. Commencez donc tout programme Basic chargé par AUTOSTART par POKE 4118,4FF. 
Plus aucun problème ne se posera alors. 


Lors de la commande DIR, d'affichage du directory d'une disquette, le défilement des noms ne 
peut pas être interrompu comme dans un listing Basic. Avec plus de vingt noms, il vaut mieux 
commencer par un POKE #FF05,#10 pour ralentir l'affichage! 


Il est malvenu de tenter d'interrompre l'exécution d'une routine du 005 par un BREAK. Vous 
aurez du mal à récupérer le contrôle de votre système... Placez plutôt un disque - même vide - 
dans le lecteur démuni dont vous avez demandé le directory. 


Enfin, si vous avez regu votre système 320 K avec le mien, vous aurez remarqué que le DOS V2.0 
fourni sur la disquette contenant le programme OLDENT n'est pas "régulier". En ce qui concerne 
le TINYDOS en tout cas. Des problèmes de lecture de longs programmes se posent. Faites comme 
поі: demandez une copie du 005 2.1 chez Indata, ou reprenez le DOS au départ du disque "démo", 
Dans ce cas, vous n'aurez aucun problème, si ce n'est que le nombre de secteurs libres 
renseigné par un DIR est trop grand de 640! 





1 REM 

2 REM Dezimal-Bruchumwandlung 

3 REM 

8 REM von Willi Herrmann / 0-4320 HATTINGEN 

5 REM 

10 CLEAR 256: MODE O:PRINT CHR$(12) 

20 XX-0:YZ-0:Xz1.0:0$-" " 

30 INPUT "Dezimalzahl "3 а: A=ABS(A} 

40 ZZ-INT(A):6-A-ZZ:1F А=0.0 GOTO 110 

50 B-1.0/8:D-B 

60 IF FRAC(D)=0.0 БОТО 100 

70 D=1.0/FRAC(D):X=X#D: IF B£&K-0.5€101.0 GOTO 60 
80 IF X41000.0*X/D THEN Ag="* " 

90 X-X/D 

100 XZ=INT (X40. 5) 2 YX-INT (B#X+0.5) 

110 IF XZ-1.0 AND YZ-1.0 THEN ZX-22**1:XX-0:Y4X-0 
118 PRINT TAB(30)5" "5463577" "XU" /"3YT 

120 PRINT :GOTO 20 


Dezimalzahl 70.75 


Dezimalzahl 71.0525 


Dezimalzahi 70.111111 


Dezimalzahl ?5 
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ASSIGN FROM DISK (ou CASSETTE) pour utiliser les disques (ou 
cassettes) en lecture 


ASSIGN TO DISK (ou CASSETTE) pour utiliser les disques (ou 
cassettes) en écriture 


ASSIGN OUTPUT TO SCREEN, PRINTER ou DISK pour assigner les ordres 
PRINT à l'écran, l'écran et l'imprimante, ou les disques 
ASSIGN INPUT FROM KEYBOARD, 85232, ou DISK pour que les ordres 
INPUT ou GETC lisent le clavier, l'entrée RS232 ou le 
disque. 
Le DOS 2.7 ajoute : 


RREC lit un secteur sur disque et le place en mémoire à partir de 
l'adresse spécifiée (accès direct) 


WREC écrit un secteur (accés direct) 


ASSIGN DCR (je suppose) pour manipuler les DCR. 


Ce jeu de commandes est extensible, j'ai ajouté pan exemple fa commande 


CLS - qui efface L'écran, mais поп L'imprimante.,, -. De plus, vous pouvez, avec 
un peu d’halileté vous constituer une Librairie de nouvelles commandes 
disponibles sur disque, chargées рал ип DLOAD ... et exécutées рал Les nouveaux 


ordres que vous avez introduits: SCOPY ou JUMBO pour un screen-copy (copie 
d'écran) en petit ou grand formal, ... 


Toutes Les commandes du DOS peuvent être introduites dans un programme 
Basic, Pour ce faire, vous devez, au moyen d'un POKE #131,3, Les envoyer рал un 
PRINT au DOS. Ceci est moins commode qu'une commande directement accessible en 
Basic, mais ne pose aucun prollème de mise au point, Par exemple, pour que votre 
programme Lise Le directory de La disquette 1, vous commandeaez : 


10 POKE #131,3:PRINT "DIRI":POKE #131,1 


Un des gros avantages d'une telle organisation des commandes est de 
permettre, pour chaque ordres, L'ouverture, ѓа Lectures... l'accès à un fichier 
dont Le nom se trouve dans une chaîne; ou à un secteur dont fe numéro де trouve 
dans une variables... 


Le plus dur est d'ouvrir, éenire, et fermer un fichier séquentiel, Pour 
ce faire, vous devrez jongler avec des СНАЗ(1), CHR$(2) et CHRS(3), Арес un рей 
d'habitude, on y arrive... sans trop de peine! 


De plus, Le manuel d'utilisation vous montre comment manipuler Les 
ordres du DOS depuis £e moniteur directement, ou par programme machine, Toutes 
Les adresses importantes vous sont fournies г ouverture de fichier, fermeture)... 
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Les sytèmes d'exploitation пе sont pas compatibles avec CP/M. 
Toutefois, Ze CP/M - ou plutôt un CP/M ай fonmattage propre à Indata semble-t-il 
- est disponible pour Le 160 K (44 doit coûter environ 10000 francs 7VAc). Un 
véritulle CP/M, commençant à l'adresse 0 ei acceptant £e véritable fonmattage du 
CP/M - ou £e DAI Lina et ёсліла tous Les disques écrits sous CP/M - est en 
préparation et дол ла Bientôt (?) pour Le méme prix, 12 laissera à L'utilisateur 
environ 40 К RAP Libres, Voilà qui est prometteur, et qui me rend impatient... 


Ce que vous recevrez avec vos disques n'est pas found mais très 
intéressant. I£ s'agit d'un manuel d'utilisation en anglais de plus de 50 pages. 
Je L'ai trouvé suffisamment explicite bien qu'entièrement en anglais, ТЕ s'agit 
aussi de trois disquettes ; L'une contenant une série de programmes de 
démonstration, une autre contenant une série de programmes d'initiation à Фа 
manipulation du DAI, et Фа dernière contenant Le DOS, un programme ОР qui 
vous permet de Line des disquettes écrites sous Фе DOS V1.0 des anciennes 
disquettes, un programme basic de menu général et une routine de transformation 
du clavier en AZERTY, 


Le DOS V2.0 - ou version 2,1 - fonctionne très bien, fais on peut 
regretter centaines options et ва pauvreté de £a gestion des fichiers. 


En premier Lieu, L'allocation n'est pas dynamique. Vos fichiers, 
tableaux ou programmes sont stockés de manière continue - séquentielle - sur 
disque, Changez un programme рал LOAD, ajoutez lui quelques Lignes et essayez de 
Le resauver, vous obtiendrez un malheureux "END OF FILE"... 42 faudra détruire 
l'ancien programme avant de tenten une nouvelle sauvegarde. Оп a vite rempli bes 
disques avec des programmes effacés... Il vous faudra donc régulièrement 
compacter vos disques pour récupérer toute cette place perdue! 


En ce qui concerne Les possibilités de gestion des fichiers 
séquentiels, on peut regretter La pauvreté du DOS, suntout Lonsqu'on a déjà 4442 
un боп DOS comme £e DOS 3.3 sur APPLE ІІ. En effet, dès qu'un fichier est fermé 
pour L'écriture, il n'est plus possible de L'ouvrir à nouveau pour y ajouter 
d'autres noms. Ié faudra Le recopier dans un nouveau fichier que vous étendrez. 
Ce qui est bent pour de bongs fichiers, et peu économique en place disque, Un 
fichier ne peut être ouvert que pour une écriture ou une lecture exclusivement, 
L'ouverture vous place systématiquement en début de fichier, IL n'est Рад 
possible, sauf pan programme - Lent et ennuyeux - d'atteindre Le n 
enregistrement directement, Pas de POSIT ni d'APPEND, 


Les fichiers à accès dinect se nésument à peu de chose. Vous pouvez 
Lire ou écrire un secteur entier. C'est tout, Се sont des PEEK et POKE qui vous 
placeront Les données dans Les variables adéquates, Vous devrez aussi tenir une 
table reprenant fa Liste des secteurs déjà occupés, une autre décrivant La forme 
des enregistrements : 6 caractères pour La date, 30 pour £e nom, eic... Vous пе 
pouvez travaillen que sur des bloes d'un secteur (256 octets), à moins d'une 
gymnastique telle celle développée pour Le programme de comptabilité de L'école, 
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A L'initiulisation des disques, ва piste 0 est nésenvée au directory. 
Celui-ci accepte 96 noms, IL vous nestend donc aussi 39 pistes {79 pour Le 640 K) 
ou encore 159744 (323584) octets Libres sun Le disque, Bien вл, 54 pous PARF 
bénéficier de £’ AUTOSTART d'un programmes if vous sera nécessaire de déduire Les 
secteurs nécessaires du DOS. I£ vous restera daltons 156928 (320768) octets sur 
disque, Ce qui est confortable, 


L'enregistrement de chaque tableau, programme ou fichier est accompagné 
de son nom - au maximum 8 caractères -, son type - au maximum 3 _canactènes : BAS 
pour un programme Basic, BIN pour un code machine, STR, INT et FPT pour Les tableaux 
de chaînes, d'entiens et de néels nespectivement, ce que vous désirez pour Les 
fichiers, pan exemple TXT pour ber textes nédigés рал ce programme de traitement de 
texte, eic... - et son attrilut - Ш si L'enregistrement est protégé contre 
L'écriture et N sinon -. La place occupée en secteurs complets, et divers 
renseignements nécessaires au système d'exploitation г fichier effacé ou поп, 
position du premier secteur du fichien,... 


Le DOS V2.0 penmet L'utilisation simultanée des deux drives з baptisés 0 
ei 1 gauche et droit - et de deux cassettes ordinaires, Le passage disque - 
cassette est aisé et sans problème, Le DOS V2.1 permet £a commande d'un maximum de 
3 DCR en chatnant à La table а” instructions du DOS celles du flemocom, présentes 
dans fa ROM auxiliaire. 


La place mémoire occupée рал £e DOS n'est pas démeaunée + La version 2.0 
s'étend de 300 à 1800 (hexadécima£), tandis que Zo version cl. s'étend de а. д 
1С00 54 vous n'utilisez pas de DCR et de 300 à 1000 sinon. Vous consommez donc 
environ 5 K RAM avec £e DOS complet. Cependant, £a commande TINYDOS vous permet de 
réduire cette place à 1,5 К RAM, Bien Айл, dans ce cas, роиљ n'aunez plus aucun 
accès aux commandes du DOS, 


La différence entre Les deux DOS n'est pas terrible. La nouvelle version, 
disponible depuis peu, permet ta manipulation simultanée des disques et de trois 
DCR (numérotés 1, 2 ei 3), alors que L'ancienne ne £e permet nullement. De plus, £a 
version 2.1 ajoute au DOS Les commandes Basic RREC et UREC de Lecture et écriture 
directe de secteurs sur disque. La version 2,0 ne Le permet que sous moniteur, ou 
sous Langage machine, 


Les commandes Basic incluses au DOS sont nombreuses, Elles s'ajoutent aux 
commandes habituelles LOAD, SAVE, LOADA et SAVEA, De plus vous pouvez Les augmenter 
et constituer ainsi sur disque une vénitalfe extension de votre DAI. Les voici: 


RESETD réinitialise la carte contrôleur des drives 
DIR affiche le contenu de la disquette : son directory (nom 


extension attribut nombre de secteurs utilisés pour chaque 
enregistrement) Le nombre de secteurs libres est fourni. 
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TINYDOS réduit le DOS à un simple remplacement des cassettes par 
les disquettes; 11 ne demande plus que 1,5 K RAM. 


COPY copie d'un enregistrement d'un disque à l'autre ou sur un 
méme disque 


BACKUP copie l'intégralité d'un disque sur l'autre 


COMPACT copie tous les enregistrements non effacés d'un disque sur 
l'autre 


LOCAL permet la manipulation manuelle de la cassette еп 
déshabilitant la commande remote de celui-ci 


REMOTE à l'inverse du précédent ordre, rend à l'ordinateur le 
contrôle moteur de la cassette 


AUTO permet la numérotation automatique des lignes de programmes 
Basic par pas de 10 


CREATE crée un fichier dont on donne le nom et éventuellement la 
longueur 


DELETE efface un fichier (n'en supprime que le nom dans le 
directory) 


VERIFY vérifie la qualité d'un enregistrement, d'un disque ou des 
deux 


IDISK initialise et formatte une nouvelle disquette 
PROTECT protège un enregistrement contre l'écriture 


RECOVER déprotège un enregistrement protégé contre l'écriture ou 
restaure celui dont le nom a été effacé (par DELETE) 


RENAME change le nom d'un enregistrement 

DSAVE sauvegarde une portion de mémoire comme W le fait sous 
moniteur (avec en plus la possibilité d'introduction d'une 
adresse de lancement de la routine autre que la première 


adresse. Celle-là ne pouvant servir que pour 1'AUTOSTART). 


DLOAD chargement de la portion mémoire (comme R sous moniteur, mais 
Sans possibilité de décalage) 


OPENI ouvre un fichier pour 1a lecture 
ASSIGN DISK pour travailler avec les disques en lecture et écriture 


ASSIGN CASSETTE pour travailler avec les cassettes en lecture et 
écriture 
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Шы Tr A-FLOPPIES 


Namur, £e 23 mans 83 


C'est depuis La fin de L'année précédente que je manipule Les doubles 
drives 320 Ket 640 K de £a firme Indata. Et c'est avec grand plaisir qu'à L’ école 
où j'enseigne, nous avons oublié £e Метосот, pourtant excellent, ou Ze 2 х 80 À qui 
me fut prêté une semaine durant, L'acquisition de systèmes rapides et Zialles de 
stockage de L'information était devenue urgente, En effet, L'utilisation fréquente 
du DAI en ordinateur pédagogique ou en système de traitement de texte, зоп 
utilisation pour £a gestion comptable de l'école, celle prochaine pour fa gestion 
de fichiers élèves et proferseursy... nécessitaient rapidité et souplesse. 


Nous avons donc fait l'acquisition de trois unités г deux de 320 K et une 
de 640 K, C'est muni du double drive 320 K que je compose ce texte, au moyen de "La 
Plume du Dai", traitement de texte implanté personnellement. Sun L'unité Plus 
ruissante,nous avons implanté un programme de gestion сотр ай е de fi institut, 
C'est dans ces conditions que je penmets de présenter une vision critique des 
floppies Indata. 


La firme Indata commercialise trois unités différentes de doubles drivés 
: Le 160 K (deux disques de 80 К), £e 320 K (2 x 160 K) et Le 640 K (2 x 320 K). La 
première unité, munie de son dos /1.0 a déjà fait L'objet de sévères critiques dans 
cette revue, J'ai eu l'occasion d'en manipuler un exemplaire durant quelques jours, 
ma déception fut grande : Lenteur et faiblesse du DOS. Je vous parlerai des 
nouvelles unités, celles qui, j'en suis Ada, valent vraiment Leur prix, lais c'est 
à vous d'en juger! 


Voici Les premières caractéristiques des trois unités: 


160 K 2 x 80 К SF SD 40 pistes de 16 secteurs de 128 octets 54479 Е ТУАс 
320 K 2 x 160 K SF SD 40 pistes de 16 secteurs de 256 octets 59087 F TVAc 


640 K 2 x 320 K SF DD 80 pistes de 16 secteurs de 256 octets 73637 F TVAc 


NOTE : Elles sont toutes en simple face SF, 
SD pour simple densité 
DD pour double densité 
£e 160 K tourne sous £e DOS V1.0 ou sous CP/M 
Les 320 Ket 640 K tournent sous Les DOS V2.0 et 2.7 


de ne ралбела4 plus des 160 K, Les connaissant très peu. IL semble 
toutefois qu'ils aient été néviséià ce jour, et qu'ils soient nettement. plus 
lialles que Les précédents, Sont-ils toujours aussi tents? 
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Les nouveaux systèmes sont particulièrement rapides. En mesurant, grâce à 
£'hon£oge interne du DAT - plus fiable que La taotteuse de ma montre et qui n'est 
pas arrêtée рал Les accès au disque - £e temps de changement d'une image en MODE 6, 
depuis Фа mise en manche des moteurs jusqu'à £a fin du changement, je suis аллірё à 
15,78 secondes. Ce qui est très bien, Le programme utilisé était Le suivant: 


г 


10 MODE 6 
20 POKE-#1BF #ЕЕ:РОКЕ # IBE ЕЕ 
` 30 POKE #131,3:PRINT "DLOAD image" :POKE #131,1 
40 A=PEEK(#1BE) :B=PEEK(#1BF):PRINT (4FFFF-256*A—-B)/50;" sec" 


Pan Ға méme méthode, j'ai mesuré Le temps de Lecture d'un secteur sun 
disque, I£ m'a fallu 1,88 secondes pour Le premier - бс temps de mettre Le moteur 
en marche et de Line ce secteur -, ei 0,08 seconde pour chacun des suivants. Cette 
rapidité est due, en pantie, à Ға présence d'un buffer de 2 К - place pour 8 
secteurs consécutifs - à L'intérieur méme des unités. Le temps - à ma montre - d'un 
BACKUP est de L'ordre de 60 secondes pour un 320 K {118 pour un 640 K), celui d'un 
IDISK est de 20 secondes (37). Ces temps sont bons, et j'en ai pleine satisfaction. 


De plus, Les disques se montrent très fiables, je n'ai pas encore зи Les 
mettre en défaut pour des opérations de Lecture ou d'écriture, La seule condition 
est фо franchement sur une bonne pa4Ae,... 


Le DOS V2.0 est identique pour Les systèmes 320 K et 640 K. Son jeu 
d’ instruction est Le méme que celui du DOS V1.0 des 160 К. Voilà qui ne dépaysera 
personne. fais Les noutines sont modifiées, et Les accès au DOS sous moniteur sont 
donc différents, Vous aurez remarqué que Les secteurs comptent 256 octets, ce qui 
est fe double de ceux des 160 К, Bien que Ze DOS soit Ze méme pour Les deux 
“grosses” versions, Le фолтаїладе propre à chacun des lecteurs interdit au 640 K £a 
Lecture des disques 320 К, La seule Lecture possible est celle du directory : Ze 
Lecteur 320 К peut Line Le dineciony - table des matières - du 640 К et 
invensément, C'est tout! Voilà qui est bien malheureux, et qui nous oblige au 
transfert des programmes et des tableaux par La cassette, C'est Lent mais 
efficace... 


Le DOS - ensemble des commandes vous permettant fa manipulation des 
disquettes - ne se trouve pas en ROM, ou seule la manipulation des cassettes est 
permise, I£ faut donc Le charger en RAM, au moyen d'une disquette qui Le contient, 
C'est-à-dire une disquette qui contient £e fichier $DKBOOTS Long d'un secteur qui 
permei Le changement du DOS, Le fichier SMSTRDOS Long de 25 secteurs, Cette 
disquette d'initiaflisation est à insérer dans £e Lecteur gauche : Ze drive 0. A 
l'allumage simultané de tout Le système, certains heureux jouissent d'un 
auto-changement du DOS. Personnellement, j'ai toujours ай actionner fe bouton 
RESET, normalement une seule fois. Si, sur La disquette, se trouve un programme 
machine baptisé SUSER.BIN, il sena changé et exécuté - pan exemple La conversion du 
clavier en AZERTY -, ei A'4£ se trouve un programme Basic nommé $USER. BAS, il sera 
ensuite changé et exécuté, toujours en second Lieu (AUTOSTART d'un programme), 
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Opmerkingen : 
- РС = Programcounter ; deze houdt bij Бі) welke regel {of beter 
gezegd : op welk adres) het machinetaalprogramma bezig is. 
= SP = Btackpointer р Deze houdt bij op welke adres in de stack het 
laatst iets is gezet} Op de stack zet men of de PC als men met 
de CALL groep een subroutine aanroept,of een ander register dat 
men met PUSH bewaart. (Ор te говреп met respectievelijk RET en 
POP), 
= 1,СУ,Р en 8 zijn FLAGS (= een @(=niet waar) of een і(зуваг)) die 
"geset" (1 gemaakt) of "gereset" (9 gemaakt) worden bij bepaalde 
instrukties afhankelijk van de uitkomst. 
Bij welke instructies staat in DAInamic 15 van blz. 96 tot blz. 
100. Hier staat оок wanneer welke FLAG "geset" wordt. Bovendien 
staat in dat artikel van iedere instruktie een BASIC equivalent 
еп ik beveel daarom dat artikel zeker aan. 
- Een streepje boven A of C (bij CMA en СМС) betekent dat enen nullen 
warden en omgekeerd. 


3) Hierin staat het (hexadecimale) getal,dat als de CPU het leest de 
bijbehorende instructie uitvoert. 
Opmerkingen : 

= PSW is een registerpaar bestaande uit A en de register 
die alle FLAGS bevat, 

- Sommige instructies vragen om een getal (б.у. MVI А, баа = maak 
de inhoud van ñ gelijk aan data), dan staat er "dd" achter dit 
betekent dat er een willekeurige BYTE volgt. 

- Sommige instructies vragen om een adres (b.v. JMP addr = GOTO addr) 
‚dan staat er "al ah" achter,dit betekent dat er twee willekeurige 
BYTES volgen,de eerste met het LAAGSTE gedeelte van het adres 
‚de tweede met het HOOGSTE; !'! dus JMP :@2EF wordt vertaald als 


"C3 EEF 02". (de : betekent een hexadecimaal getal en CK is de code 


van JMP) 


Men kent nu weliswaar alle instructies, maar alleen daarmee kan men nog 


moeilijk een programma maken, daarom geef ik nu enkele tips en aanwijzingen 


= M is geen gewoon gewoon register maar de inhoud van de BYTE die door 
H.L wordt aangegeven : MVI MA betekent dus PORE (HL) A . 
~ Een LOOP is gemakkelijk te maken door iets als : 


MVI 8,190 ж Bele 

LXI H,:BFEE ж (H,L)=#BFEE:REM ) LOOP MOV ME ж POKE {H,L) „Er REM 
) --» DIT KAN VAN ALLES ZIJN 

DCR B ж Вев-1 

JNZ LOOP з IF ВО GOTO LOOP 


Let hierbij wel op dat b.v. “DCX rp" geen FLAGS verandert. 

- Als men een bepaalde waarde even niet nodig heeft moet men die op een 
dumpadres wegpoken,om de registers vrij te houden. 
Оп een soort variabelen te hebben gebruik ik de volgende manier : 


(Dit is in DNA geschreven.) VAR ERU :addr % VAR bevat het dump adres 


STA VAR * zet A op adrse VAR еп 
LDA VAR + haal hem weer terug 


Та is het ook mogelijk om een ARRAY te maken : VAR ЕВИ :addr * idem 
LXI Н,УВА ж (HL) bevat adres van VAR 
UXT Dal * (D,E) bevat welk element 
080 D * (H,L) bevat adres van element 
MOV AM * A bevat element 


Dit is zo'n beetje wat ik in dit artikel kwijt wou en ik hoop dat het een 
beetje leesbaar en te volgen was, daar ik totaal geen ervaring heb in het 
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schrijven van dergelijke stukjes. Ik hoop dat U nu iets meer van machinetaal 
weet en dat Ц er mooie programma’s mee gaat maken. Mocht U nog vragen hebben 
dan zal ik ze graag beantwoorden. 


Mark Hooykaas 
Bosrand 9 

9451 AE Rolde 
Drenthe Holland 
95924-1948 
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Mi jm eerste т. 
machinetaal pr og amma H 





H 





Ik bezit nu ongeveer anderhalf jaar een DAI en heb mijn programma's tot een 
paar maanden geleden allemaal in BASIC geschreven. 

Vooral bij het "scrollen" van het scherm schoot BASIC echter te kort en ben ik 
me daarom іп machinetaal gaan interesseren, Toen ik mijn eerste programma's, 
waar ik machinetaal in gebruikte, opstuurde werd mij gevraagd om, als iemand die 
net met machinetaal was begonnen, eens een artikel te schrijven over het hegin- 
nen met programmeren in machinetaal en welke problemen ik daarbij tegenkwam, 

Dit deed ik graag en hier is dan het resultaat van mijn werk. Ik ga ervan uit 
dat men wel wat afweet van BYTES, BITS, CPU, opbouw van geheugen etc.. Dit ar~ 
tikel is dus bestemd voor die mensen, die al een aardige ervaring met BASIC heb- 
ben еп’ als volgende stap een assembler hebben gekocht (of er een wilen gaan Ко- 
pen), maar nog niet goed weten wat ze er mee aan moetens die mensen zou ik graag 
willen helpen met hun eerste stap in machinetaal. 


Ik wilde beginnen met de voor- en nadelen van machinetaal t.o.v. BASIC. 

Machinetaal heeft maar een voordeel boven BASIC en dat is zijn snelheid, maar 
dit maakt dan ook wel een dusdanig verschil dat het b.v. voor spelletjes zeker 
de moeite waard is. 

Verder heeft machinetaal alleen maar nadelen t.o.v. BASIC, omdat machinetaal 
dichter bij de computer en daardoor verder van de mens staat. Enkele van de be- 
langrijkste nadelen zijn : 

- Machinetaal kent maar 8 variabelen, registers genaamd (dit zijn de 
registers A B,C, D,E H, L en *М’). 

- Deze registers kunnen slechte getallen van @ tot 255 bevatten of als 
men 2 registers (B,C of D,E of HiL) samenneemt van 9 tot 65555, Inclusief 
de grenzen. 

- Alle bewerkingen zoals optellen, aftrekken etc. kunnen vrijwel alleen in het 
in het A register plaatsvinden en bovendien kent machinetaal alleen maar 
optellen, aftrekken en enkele logische commando's. 


Ik hoop dat U nog niet ontmoedigd bent en anders kan ik U vertellen dat het na 
even wennen en wat oefening best meevalt, 

Ik zal U nu zaveel mogelijk vertellen wat ik weet,hierbij gebruik ik de ВоВе 
instructionset (o.a. te vinden in DAInamic nr 18) met de assemblercodes. 

Dit zijn afkortingen (zgn. mnemonics), die gemakkelijker zijn te onthouden dan 
de getallen welke de computer eigenlijk leest, hier is een assembler voor nodig 
{DNA of SPL). 


Het blad bestaat uit 3 delen : 
1) De naam van de instructie en wat voor een soort parameters hij er achter 
verwacht dit kan zijn : 


reg = een register 

гр = een registerpaar (В,С of D,E of H,L of PC of SP {af TOS) ) 
data = een getal van 0-255 

addr = een getal van 6-655335 (het adres van een BYTE in het geheugen) 


2) Dit beschrijft de instruktie volgens de volgende regels : 
- Als om een register {paar} haakjes staan betekent dat, dat het gaat om 
de inhoud van dat register (paar). 
~ als om een adres of om een registerpaar,waar al haakjes om staan, haak- 
jes staan betekent het dat het gaat om de inhoud van dat adres, 
- {en is het zelfde als in BASIC "=" ( (А)<--(В) betekent dus A=B). 
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U wordt lid door storting van de contributie op het 
rekeningnr. 230-0045353-74 van de Generale 
Bankmaatschappij, Leuven, via bankinstelling of 
postgiro 

Het abonnement loopt van januari tot december. 


DAlnamic verschijnt de pare maanden. 
Bijdragen zijn steeds welkom. 





CORRESPONDENTIE ADRESSEN. 
Bedactie en software bibliotheek 





Wilfried Hermans 
Mottaart 20 

3170 Herselt 

Tel. 014/54 59 74 


Kredietbank Herselt 
nr. 401-1009701-46 
BTW : 420.840.834 


Lidgelden / Subscriptions 


Bruno Van Rompaey 
Bovenbosstraat 4 t.n.v. J.F. van Dunne’ 


B 3044 Haasrode Hoflaan 70 
België 3062 JJ ROTTERDAM 


tel. : 016/46.10.85 Tel. : (010) 144802 


Voor Nederland : 
GIRO : 4083817 


Generale Bankmaatschappij Leuven 
nr. 230-0045353-74 


Inzendingen : Games & Strategy 


Frank Druijff 

"6 Gravendijkwal 5A 
NL 3021 EA Rotterdam 
Nederland 

tel. : 010/25.42.75 








PERSONAL COMPUTER USERS CLUB 













| | (з Р 2] | 
Hex] pec | ex DEC E | 
.1 1 1 
2 2 2 
3 3 3 
4 4 4 
5 5 5 
$ 16 6 
1 т 1 
8 E 8 
9 jo 9 
A А 
в в 
с с : 
D D Е 
Е Е i 
F Е 


functie/symbool 





























| 
back-space 8 | 
TAB 9 9 i 
linefeed A 10 і 
Clear screen с 12 з 
CURSOR UP 10 16 : 
CURSOR DOWN 11 17 p 
CURSOR LEFT 12 18 | 
CURSOR RIGHT. 13 19 
space-bar 20 32 
о 30 48 
А 41 65 
а 61 97 
pijltje rechts 89 137 
pijltje links 88 136 
pijltje boven 5E 94 
pijltje onder 8C 140 p, 
volle blok FF 255 ` 
verticale lijn A 10 Н 
horizontale lijn à 






6 hor. tijnen 
































мо Го 1 2 3 4 
LSD ooo | 001 | озо | on | 100 | 101 | 
о 000 | MUL | DLE | sP | о el? ` 
3 0001 À sor | pi | ! 1 А q H 
2 0016 | sex | сг | " 2 в в ъ j 
з onjsgs|x|x5icsicisie i 
4 0100 | zor | x4 | Z 4 D т а H 
| 5 910: юв | как % 5 Е H 2 
6 опо | ack | зун | & 6 ? Y f 
7 0111 | BEL | ETB E 7 5 м 8 
з tooo} вв | сан ј ( 8 H xÍ h 
9 1001 | ET | EM ) 9 I Y i 
A лою | в | 508 | * : М 2 j 
B 1011 | vr ESC * з к t k 
c 1100 | FF | FS R < LIN 1 
D 1101 ] CR 55 - + м ] в 
E 10 | so | RS š > I n $ n 
zr чніря |98 X ? о | - | ° 























Herselt, april 1984 


Beste leden, 


De jaarlijkse bijeenkomst in Tongelsbos is weer achter de rug, de nazorg 
hiervan is nog bezig, veriofdagen in de drukkerij ... U begrijpt het al, 
ons blad is weer een paar weken achter op het schema. 

Geen nieuwe software in dit nummer, er liggen wel een aantal pakketten 
op de testbank, die komen volgende keer beslist aan bod. 

Met tevredenheid (en opluchting) kunnen не U een nieuwe mankracht 
voorstellen: Frans Couwberghs. Reeds een hele tijd actief in de DAlnamic- 
equipe is Frans nu fulltime werkzaam voor de vereniging. In het kader 
van activiteiten met vrijstelling van stempelcontrole neemt Frans ons 
heel wat werk uit handen , we wensen dat hij nog een tijdje doorgaat, maar 
hopen toch dat hij spoedig zijn plaats op de arbeidsmarkt terug mag innemen, 
In dit nummer heel wat informatie over INDATA en КЕМ-005 floppy~sytemen, 
wij hopen dat deze artikels kunnen bijdragen tot een verantwoorde keuze.. 
Er gaan geruchten dat in Nederland nog sen nieuw floppy-systeem in ont- 
wikkeling zou zijn, we berichten wel indien we nieuws ontvangen. 

Samen met DIALOQUE-informatique onderzoeken we de mogelijkheid om hun 
programma’s aan een democratische prijs aan te bieden, dit zou echter van 
de vereniging een belangrijke investering vragen, wij ontvangen graag uw 
suggesties hieromtrent.. 

De PACMAC-wedstrijd is gestreden, ziehier de resultaten genoteerd door 
H.Beliekens en K. Van de Ferre : 


Results of PAC-MAN contest on our 4th meeting 


1. Goyvaerts Guido Westmeerbeek 594,780 (TV-monitor , INDATA) 

2. Goyvaerts Daniel Westmeerbeek | 579.680 (printer MIKROSHOP HAGELAND) 
3. Van Rompaey Rita Ramsel 297.820 (software packet} 

4. Smits Р. Deurne 346.080 ( ^" ) 

5. Cheng Kenneth Arnhem 316.5618 ( ^" ) 

6. Duluins Fabrice Nivelles 302.350 (reduction card) 

7. Catry Hank Buggenhout 299.278 ( " H 

B. Wijbouw Didier Üostende 225.300 ( ^" ) 

9. Assink Eindhoven 198.270 ( ^" ) 

18. De Boer ñ. Zwaanhnek 182.390 ( " 1 


Dear members, 


Above you can find the results of our PACMAC-contest on our 4th meeting. 
There were only 15 players, but I think that the enormous highscore of the 
Goyvaerts-brothers has frightened a lot of members to try their chance. 

In this issue , по new software is announced, we are testing a lot for the 
moment, so look nut for next issue ! 

Yannick Dupagne has tested the INDATA-floppies, Frans Couwberghs talks 
about KEN-DOS : these articles should assist you in your choice of the 
best suited system for your applications. 

When visiting INDATA, we saw a lot of new faces : new sales-managers, 

a new marketing-director (Mr Art), and a new director (Mr Leonard). 

There were talking in mysterious terms about something that should happen 
in september (of this year!) ... we can only wait and see. 


we start with edition of newsletter 22 right now, till then ... 


Wilfried Hermans 
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4220 PRINT AX::INPUT ТФ (АХ) PRINT 

4250 NEXT 

4300 PRINT "NOTEER NU WELKE TEKSTGEDEELTEN U WENST TE MARKEREN" ERRATUM EPROM PROGRAMMER (N 19 p. 386} 
A310 INPUT "HOEVEEL MARKERINGEN "SAMSPRINT о 

4320 FOR BZ=1 TO АМ 

43360 PRINT "MARKERING NR "SBX:IPRINT Рад - РА7 : dienen omgewisseld met PBO - PB7 
4348 INPUT “LIJNNUMMER "SLNO) PRINT 

4350 INPUT “BEGINPOSITIE #3 BP (BY) = BP (ВХ) =BP (BX) +5. 6: PRINT In het programma : 

4350 INPUT "AANTAL POSITIES "ЗАР (BZ) :AP (ВУ) =AP (B4) #2. 0-1. 6: PRINT 

4579 NEXT lijnen 971 & @72 vervangen door : 
4399 РОКЕ #FFOS, 255 

4400 PRINT CHR$(12):POKE 875,32 MVI А, AIN 

4419 FOR AX-1 TO AL CALL RICOUT 

4420 PRINT T& (AX) 

4430 NEXT tussen lijnen 076 & 977 toevoegen : 
45600 COLORT AK TK MK MT ; 

4595 FOR СХ-1 TO АМ ` LDA ROMTYP 

4515 FOR D=#BFEF-LN(C%) ##86-ВР (CZ) Ұ2.0-3.0 ТО D-AP (CZ) STEP -2.0 CPI 32 

4520 POKE D,#FF JMZ RDIG 

4525 NEXT LXI D,:2260 

4525 IF A$="J" THEN GOTO 4528 JMP NXTBLK 


4527 IF A$="N" THEN GOTO 4535 

4528 FOR E-1.0 TO 19.9:спровт AK TK AK MK:WAIT TIME 8:COLORT AK TK MK 
МТ: НАТТ TIME В: МЕХТ 

4535 WAIT TIME 200: МЕХТ RDi& LXI D,:2200 

4599 НеВЕТС: IF H<>32.0 THEN GOTO 4599 
4500 GOTD 200 


lijn 77 veranderen in : 


— YV ا‎ 


А VENDRE (cause achat ғву.7) 








DAI complet 50000 Bfr 
19 REM VASERELLI by R.SIP UHF /PAL 
20 REM enter in utility with -substitute- DCH + cable + TOS 13000 Bfr 
зе REM start with : MODE 5 : CALLM #500 
Televiseur couleur 12000 Bfr 
Hitachi 


55000 Bfr 


L'ensemble d'une seule piece :50000 Bir 


contactez : Mallien JP 182 rue des Nobles 5781 SOYE 


АА ае‏ س 





Use +, — , * , : , ^, SOR, ! (faculty) .. to solve these mystery exercices, 
0370 SF ЗЕ 24 93 32 OF 04 ЗА 00 O4 32 10 04 CD CB 05 result should be & for all. 

0380 ЗА OE 04 С6 05 32 ОҒ 04 ЗА OD 04 57 ЗЕ 1F 92 32 
0390 10 04 CD CB 03 ЗА OE 04 SF ЗЕ 24 95 32 OF 04 ЗА . example : 2 + 2 + 2 = А ( very easy indeed this one !) 
0560 OD 04 57 ЗЕ ДЕ 92 32 10 04 CD CB 05 ЗА ОС 04 Có | 
O3BO 01 32 OC 04 3A OD 04 5р 32 OD 04 C2 12 05 ЗА OE 
O3CO 04 3D 52 OE 04 C2 OD ОЗ C3 08 05 ЗА 10 04 11 DO 
0500 02 21 00 00 37 ЗЕ iF 02 DB 05 19 B7 CA ES 05 EB 
05Е0 29 EB C3 ра 03 11 44 66 19 ЗА OF 04 17 47 7D 90 
03F0 SF 7C DE 00 87 ES бі 16 08 ЗА OC 04 02 05 ЗЕ АА 
0400 02 21 59 00 09 ES Cl 15 C2 F9 05 C9 28 01 02 06 
0410 02 








© OO ^ CP Of p CAL е 
® OO N Ce A LA IJ n 
DO 00 o OS A аме 
Eh H U H HW H N H H 
SEE a 


5 
m 
m 


(solutions in next issue } 
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